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000014 



(•••COPYRIGHT 1969, HIGITAL FQUJPMENT CORP., MAYNARD, MASS,*** 

(THIS SUP.-PROGRAM ASSEMBLED WITH SYSTEM PARAMETER FILE - S.MAC(V4i4) 

XLIST 

LIST 
V0<!3 S SUB " PR0GRAM ASSEMBLED WITH CONFIGURATION DEPENDENT FEATURE SWITCHER - FT50SB.MAC1 

XLIST 

LIST 

OTASRN - NEW FORMAT OECTAPE SERVICE FOR TD-10 (PDP-10) 

T, WACHS/RCC TS 04 JUN 69 V406 

XP VQTASX.-406* 



TITLE 
SUBTTL 



IFNDEF ALMACT, <ALMACT=0> 
ENTRY OTASRN 



(DEFINE GLOBAL VERSION NUMBER FOR LOADER MAP, 
> 

(THIS ENTHY FOR SELECTIVE LOAD BY RUILD 



OTASRN! 

INTERNAL QTAOSP 

EXTERNAL TPOPJ,TPOPJ1,OTALOC,DTALC2,DTBOTH,WSYNC,DTACHL 

EXTERNAL STOIOS,ST0TAC,SETACT,CLRACT,OUT,OTASAV,PIOMOO 

EXTERNAL nTAVAL,OTREQ,DTWAlT,SETlOD,THSDAT,PUNIT 

EXTERNAL ADVBFE,AOV3FF,ADRERR.WAITl,CPOPJ,CP0PJl,f3ADDIR 

EXTERNAL C0MCHK,J0BP01.[)TTURN,PJ0BN,RELEA9,UA0CK1,STRFQ 

EXTERNAL CLOCK, JBTAOR.DFVPHY.PION, PI OFF, DTTRY 

|DTAL0C=PI LOC FOR DATA - CHANGED BY ROUTINE 
)OTALC2=PI LOC+1 FOR DATA 

;OTBOTH=10»(PI FOR DATA CHAN) * PI FOR FLAGS CHAN 
|OTTURN = 3002S»0 + OTBOTH (CONO FOR TURN-AROUND) 



000004 BLK = 4 



000144 DIR8LK='D100 



TOPBLK=1101 
NAMSTH=t083 
QUANT=3 
MINDJS=14 



000004 SPACE=4 



(NUMBER OF BLOCK FOR DIRECTORY 

(HIGHEST LEGAL BLOCK NUMBER 

(1ST NAME WORD IN DIRECTORY 

(NUMBER OF BLOCKS CAN READ BEFORE GIVING UP DTC 

(MINIMUM NUMBER OF BLOCKS TO SEARCH 9EF0RE DISCONNECTING 

(FROM A TAPE 

(NUMBER OF BLOCKS SEPERATING CONTIGUOUS BLKS OF A FILE 



(DOB MAGIC CELLS 

000013 FSTBLK=13 

000014 DL0C=14 

000015 IBLK=15 

000016 08LK=16 

000017 0ISPAD=17 

000020 DMPLST=20 

000021 SVDWRD=21 



DTAS^N 



53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 

72 
73 
74 
75 



■t^AC^Jc^TsV^^ ^06 TD - 10 <PDP - 10 > M * CR "-^ »'« *-JUN-6, PAGE 14 



:FLAGS IN RH OF [OS 
(5013100 UOSD = 100 
020000 LSTSAV = 20000 



IFLAGS IN in OF IOS 

0002550 NOUNK = 200 

000400 CHNGDK=400 

001000 RVERSE=1000 

002000 SINGL=2000 

004000 DMPMOD=4000 

010000 RWOIR=10000 

020000 OMPCLS=20000 

040000 NO9UFS40000 

737777 N0BUFC=737777 

100000 REWBIT=1B0000 

200000 RUNBI 1=200000 

400000 RECKON=400000 



777777 777777 CPBIT=-1 



IJUST READ OR WRITE 1 BLOCK 



I DATA GOING DIRECTLY INTO USER AREA 
l-NOPUF 



ITMI? TAPE IS DEAD-RECKONING. 
( (MUST RE SIGN BIT) 



(FEATURE TEST To ALLOW 10 INTO USER AREA D1RFCT L Y^ 

i M„^t L ° NLY HAPPEW 0n ° ump MODE WITH NON-STANDARD BIT 



KUDSO) ON 
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T. WACHS/RCC TS 04 JIIN 69 V406 

76 FXTERN JIFSEC 

77 

73 INTERN tlTAINT.DTADDB.DTAINI , DT ADDS , OT ADSP 

79 

80 000000 446441 200000 OTADDBt SIXBIT /DTA0/ 

81 000001 000074 000200 XWD 'D60»HUNGST,200 

82 000002 000000 000000 

83 000003 000000 000224' EXP DTADSP 

84 000004 001107 154403 XWO 1107.154403 

85 000005 000000 000000 EXP 0.0 
000006 000000 000000 

86 000007 000007 000000 XWD PROG.0 

87 000010 000007 000000 XWD PROG.0 

88 000011 000000 000000 FXP 0.0,0 

000012 000000 000000 

000013 000000 000000 

89 000014 000000 000022' EXP DTADIR 

90 000015 300000 000000 FXP 0,0,0,0,0 

000016 000000 000000 

000017 000000 000000 

000020 7100000 000000 

000021 000000 000000 

91 000022 DTADIR! BLOCK 200 

92 000222 DTADDSs.-DTAODP 
93 

94 

95 000222 354000 000247' JRST DTAINI 

96 000223 254000 001755' JRST HUNGTP IHUNG DEVICE 

97 000224 554000 000712' DTADSPl JRST UREL 

98 000225 254000 000671' JRST UCLS 

99 000226 254000 001042' JRST UOUT 

100 000227 254000 000772' JRST UIN 

101 000230 254000 000501' JRST ENTR 

102 000231 254000 000256' JRST I OOK 

103 000232 254000 001035' JRST DMPO 

104 000233 254000 000766' JRST OMP] 

105 000234 254000 000605' JRST SETO 
1?6 000235 254000 000603' JRST SET] 

107 000236 254000 000611' JRST GETF 

108 000237 254000 000324' JRST RENAM 

109 000240 263140 000000 POPJ PDP, ICLOSE INPUT 

110 000241 254000 000650' JRST UTPCLR 

111 (FALL INTO MTAPE 



OTASRN 
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112 


000242 


550100 


000014 


WRRZ 


TAC1.UUO 


113 


000243 


302100 


000001 


CA1E 


TAC1.1 


114 


000244 


306100 


000011 


CAIN 


TAC1.11 


115 


000245 


364100 


001307' 


SCJA 


TAC1.MTAP0 


116 


000246 


263140 


000000 


POPJ 


PDP, 


117 












113 












119 








1 INITIALIZE OTC 




120 


000247 


732200 


000000 


OTAINI: CONO 


OTC.0 


121 


000250 


402000 


002152' 


SETZM 


DISCON: 


122 


000251 


201040 


001750 


MOVEI 


TAC, tD1000 


123 


000252 


231040 


000000 


IDIVI 


TAC, JIFSEC 


124 


000253 


271040 


000001 


ADD1 


TAC,1 


125 


000254 


542040 


001473' 


HRRM 


TAC.MSECPT 


126 


000255 


263140 


000000 


POPJ 


POP, 



IMTAPE - GET OPERATION 

1REWIND OR 

JRFWIND UNLOAD ARE LEGAL 

IOTHERS ARE NO-OPS 



JCOMPUTE NO OF MI LL I SECS/T I CK 
IFOR THIS FREQUENCY CLOCK 
IAOO FUDGE FACTOR FOR SAFETY 
I SAVE FOR CLOCK CALCULATION 



DTASRN v E !!*KJc 0E ^V5r^ r<j c -™ <pdp - 10 ' ™.^ ».« 4-juh. 
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127 
1?9 

110 

1.11 
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150 
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000256 
000257 
000260 
000261 
(500262 
000263 
000264 
000265 
000266 
000267 
000270 
000271 

000272 
000273 
000274 
000275 
000276 
000277 



000300 
000301 
000302 
000303 
000304 
000305 
000306 
000307 
000310 
000311 
000312 
000313 
000314 



000315 
000316 
000317 
000320 
000321 
000322 



602000 
254000 
260140 
263140 
550101 
350000 
202120 
574040 
271040 
336006 
506046 
542040 

201100 
260140 
.144600 
350000 
370003 
253140 



220100 
516120 
275600 
621000 
661000 
201200 
260140 
326200 
260140 
254030 
260140 
260140 
506646 



550206 
336006 
202206 
542220 
500060 
502046 



000100 

000000 

000365' 

000000 

000026 

000014 

000014 

000001 

000027 

000013 

000016 

000015 

000000 

0004241 

000300' 

000002 

000001 

000432' 



EXTERN JOBSAV 
ILOOKUP s OIRECTORY ENTRY 



LOOK: 



LOOK* i 



TRNC 

JRST 

PUSHJ 

POPJ 

WRR2 

AOS 

MOV£M 

HL«E 

4001 

SKIPM 

HRLM 

HRRm 

MOVEI 

PUSH,) 

«OJA 

AOS 

SOS 

40Sj\' 



I0S.UDS0 

CPOPJl 

PDP.DSERCH 

POP. 

TAC1,26(TAC) 

uuo 

TACl.PUlin 
TAC, TAC 
TAC.27 

FST8LKC0EVDAT) 
TACOBLMDFVDA 
TAC, 4C1 

I CHANG 
TAC1.0 

PDP.BLKSRC 

UU0.ST0WP4 

TAC1 

l(PDP) 

POP.PLKSRB 



INON-STA'iDARD? 

IYES. LOOKUP OK 

INO. FIND DIRECTORY ENTRY 

INOT THERE 

IGET D4TF, NO, OP IK BLOCKS 

IPOINT UUO TO WORD 3 

UNTO USER'S LOOKUP BLOCK 

IGET INDEX 



NEEDED 



itape being written? 
t! ino. save index for possible output 

isave index in case lh(irlk) is 
ed by dead-reckoning 

1c0unt number of blocks in file 

il*st block home 

1 count the block 

iadjust for correct return 

ilook for next block 



002364' 

000014 

000002 

000020 

002000 

000144 

000452' 

000312' 

000424' LOOKD' 

002136' 

001244' LOOKES 

000000 

000015 



;taci has the 
st0wd4: imul 



000015 
000013 
000013 
000014 
000014 
000012 



LOOKCI 



000323 254000 000257' 



HRLZM 

SUBI 

TLZ 

TLO 

MOVE! 

PUSHJ 

JUMPM 

"USHJ 

JRST 

PUSHJ 

PUSHJ 

WRLM 



HRRZ 

SKIPN 

MOVEM 

HRRM 

HLL 

HLLM 

JRST 



NUMBER OF BLOCKS BELONGING TO THE FILE 

l-NUMBER OF WORDS IF ALL BLOCKS FULL 

(STORE IN DIRECTORY WD 4 

IPOINT UUO TO DIRECTORY WD ? 

(MAKE SURE 10 IS OFF 

1JUST READ 1 RECORD 

INO. FIND FIRST MENTION OF RLOCK 

JNEAR DIRECTORY 

IF0UNQ IF BLK MOT =0 

IFIND FIRST MENTION IN DIRECTORY 

INOT THERE - ERROR 

IGO READ IT 

'WAIT TILL IT'S [N 
ACI.IBLK(DEVDAT) ;SAVE INDEX DM INPUT FILE FOR LATER 
(TEST ON ENTER - WONT ALLOW ENTER 
ITO ^E DONE ON LOOKED-UP FILE 
BLK.IBLK(DEvnAT) ;G£T FIRST RLOCK OF FILE 
FSTBLK(DEVOAT) ijf FILE HAS NOT BEEN ENTERED 
HLK.FSTBLKfOEVDAT) ; S AVE IN DOB L NTtREn 

T^'!nu° ,SAVE ,N USER'S AREA 
TAC.SUUO IGET USER'S EXTENSION 

TAC.DEvEXTtDFVDAT) )S A V F IN DEVICE DATA BLOCK FOR RENAME AND 
' AND SUPERSEDING SHARED SEGMENTS 



TAC1.C-177] 

TAC1.9UU0 

UUO, 2 

IOS, 10 

I0S,SINGL 

BLK.OIRBLK 

POP.LSTFRE+1 

BLK.lOOKE 

POP.BLKSRC 

BDOIR 

POP.RDBLUK 

POP.WA IT1 



CPOPJl 



IAND TAKE GOOD EXIT 
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T, WACHS/RCC TS 04 JUN 69 V406 

173 000324 261140 000014 RENAMi PUSH PDP.UUO ISAVE LOC OF NEW NAME 

174 000325 201606 000011 MOVEI UUO , OEVF I L <OE VDAT ) jSEARCH FOR OLD NAME 

175 000326 260140 000367' PUSH. I POP.OSER1 

176 (100327 254000 000357' JRST PENER1 INOT FOUND - ERROR 

177 000330 262140 000014 POP PDP.UUO IFOUND, RESTORE UUO 

178 000331 332020 000014 SKIPE »UUO IRENAMING TQ ZERO? 

179 000332 254000 000344' JRST RENAM2 INC. GO 00 REAL RENAME 
1*0 000333 402001 000000 SETHM (TAC) 1YES. DELETE NAME IN DIR 
1*1 000334 402001 000026 SET2M 26<TAC) IDELETE EXTENSION 

182 000335 402006 000011 SET?" OEVF IL < DEVDAT > IZFRO DEVFIL 

133 000336 574040 000001 H|_RE TAC, TAC (GET INOEX OF FILE 

184 000337 271040 000027 AOOI TAC, 27 

185 ("00340 260140 000473' PUSHJ PDP.DLETE IDELETE ALL RLOCKS OF FILE 

186 000341 661000 000400 RENAMl! TLO IOS.CHNGDR (DIRECTORY HAS CHANGED 

187 000342 350003 000000 AOS (POP) (SET FOR GOOD RETURN 

188 000343 254000 000000 JRST STOIOS IGO TO USER 
189 

1"0 1C0ME HERE TO REMAME TO A REAL NEW NAME 

191 000344 200240 000001 RENAM2! MOVE OAT, TAC ISAVE LOC OF NAME IN DIRECTORY 

192 000345 260140 000365' PUSHJ PDP.DSERCH (SEARCH FOR NEW NAME 

193 000346 334000 0000510 SKIPA INOT FOUND - GOOD 

194 000347 254000 000361' JRST RENER2 . 1NAME ALREADY EXISTS - ERROR 

195 000350 200060 000014 MOVE TAC.PUUO (GET NEW NAME 

196 000351 202045 000000 MOVE* TAC, (DAT) ISAVE IN DIR 

197 000352 350000 000014 AOS UUO 

198 000353 200060 000014 MOVE TAC,6>UU0 IEXTENSION 

199 000354 502045 000026 HLLM TAC26IDAT) ISAVE IN DIR 

200 000355 502046 000012 HLLM TAC , OEVEXT ( DEVOAT ) ;SAVE INN DDB 

201 000356 254000 000341' JRST RENAMl IGIVE GOOD RETURN TO USER 
202 

203 000357 262140 000014 RENER1 I POP PDP.UUO 

204 000360 634040 000001 TDZA TACTAC I RH E*l *0 
2*5 000361 201040 000004 RENER2I MOVEI TAC, 4 |RH E+l =4 

206 000362 350000 000014 AOS UUO IPOINT TO 2ND WORD 

207 000363 542060 000014 HRRM TAC.PUUO (SET ERRORR CODE 

208 000364 263140 000000 POPJ POP, IAND TAKE ERROR RETURN 
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T. WACNS/RCC TS 04 JUN 69 V406 

2?9 (SEARCH DIRECTORY FOR A MATCH 

210 000365 201654 000003 DSFRCHl MOVEI AC1.31UUO) (CHECK VALIDITY OF ADDRESS 

211 000366 260140 000000 PUSHJ PDP.UADCKl INEVFR RETURN IF ADOR, OUT OF BOUNDS 

212 000367 260140 000410' DSERli PUSHJ POP.DIRCWK IENSURE niRECTORY IS IN CORE 

213 000370 550046 000014 HRRE TAC. OLOC < OEVDAT > (LOCATION OF DIRECTORY 

214 000371 270040 002365' ADO TAC.CXWD -26.NAMSTR] (POINT TO START OF NAMES 

215 000372 336120 000014 NMLOOKl SKIPM TACl,*UUO IGET NAME 

216 000373 254000 000000 JRST TPOPJ INULL ARGUMENT - ERROR RETURN 

217 000374 202106 000011 MOVE* TAC1 , DEVF 1 L ( PEVDAT ) (STORE FOR RENAME AND SUPERSEDING 

218 I SHARED SEGMENTS 

219 000375 316101 000000 CAMN TAC1,(TAC) (TEST FOR MATCH 

220 000376 344600 000401' AOJA UUO.NMFQUN IFOUNO NAME, CHECK EXTENSION 

221 000377 253040 000375' AOBJN TAC. -2 (TRY NEXT NAME 
2?2 000400 263140 000000 POPj POP, INDT FOUND 

223 000401 510120 000014 NMFOUNI HLLE TAC1.0UUO IPICK UP USER'S EXTENSION 

224 000402 430101 000026 XOR TACl,26(TAC) ITEST AGAINST DIRECTORY EXTENSION 

225 000403 607100 777777 TLNN TACl.-l IM4TCH? 

226 000404 254000 000323" JRST CPOPJ1 (YES, RETURN 

227 000405 252040 000407' AOBJP TAC, +2 

228 000406 364600 000372' SOJA UUO.NMLOOK (NO, TRY NEXT NAME 

229 000407 364600 000000 SOJA UUO.CPOPJ (NAME NOT FOUND 
230 

231 (CHECK IF DIRECTORY IS IN CORE. IF NOT, READ IT 

232 000410 606000 000100 OIRCHKl TRNN IDS.UDSD IOONT BOTHER IF NON-STANDARD 

233 000411 337006 000004 SKIPG OEVMOD (OEVDAT) IIS IT IN? 

234 000412 263140 000000 POPj POP, (YES. RETURN 

235 000413 201200 000144 MOVE! PLK.0IR8LK (BLOCK NUMBER 

236 000414 621000 000020 TLZ I OS. 10 

237 000415 260140 000742' PUSHJ PDP.GETDT IGET CONTROL 

238 000416 661000 010000 TLO IOS.RWDIR IJUST READ 1 BLOCK 

239 000417 260140 001245' PUSHJ PDP.READBC IGO READ IT 

240 000420 260140 000313' PUSHJ POP, HAITI IWAIT TILL IN 

241 000471 205100 400000 MOVSI TACl.DVDIRI ISET D [RECTORY- IN-CORE BIT 

242 000422 436106 000004 ORM TAC1 , DEVMOO(OEVDAT ! 

243 000423 263140 000000 POPJ POP, 
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244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 



000424 205240 

000425 540246 

000426 201200 

000427 134400 
0004,10 316040 

000431 254000 

000432 305200 

000433 344200 

000434 263140 



000435 
000436 
000437 
000440 
000441 



261140 
260140 
200240 
262140 
263140 



(SEARCH DIRECTORY^ FOR FILE WHOSE INDEX IS IN TAC 

440500 BLKSRPt MOVSI OAT, 440500 (DAT IS A BLOCK POINTER 

000014 HRR DAT.DLOCtOEVDAT) 

000001 MOVEI RLK.l ISTART AT BLOCK 1 



000005 
000010 
000404' 

001101 
000427' 

000000 



000004 

000552' 

000004 

000004 

000000 



BLKSRAI 



BLKSRB! 



ILOB 
CAMN 
JRST 

CAIGE 
AOJA 

RQPJ 



TEM.OAT 
TACTEM 
CPOPJl 

bLk.topblk 
rlk.blksra 

POP, 



I INDEX OF NEXT BLOCK 

IMATCH? 

(YES. RETURN 

INO. SEARCHED LAST? 
(NO, TRY NEXT BLOCK 
IYES, RETURN 



J SET UP POINTER TO DIRECTORY FOR BLOCK IN BLK 



SETPTRl PUSH 
PUSHJ 
MOVE 
POP 
POPJ 



PDP.BLK 
PDP.ORPTR 
DAT, BLK 
POP, BLK 
P'DP, 



ISAVE BLK 

(SET BLK AS A BYTE POINTER 

(RETURN IT IN OAT 

(RESTORE BLK 

(AND RETURN 



263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
2fil 
282 
2B3 
284 
285 
286 
287 
288 
289 
290 
2<51 
292 
293 



000442 
000443 
000444 
000445 
000446 
000447 
000450 



000451 
000452 
000453 
000454 
000455 
000456 
000457 
000460 
000461 
000462 
000463 



000464 
000465 
000466 
000467 
000470 
000471 
000472 



261140 
260140 
201040 
260140 
201200 
262140 
263140 



201040 
261140 
271200 
260140 
275200 
260140 
135400 
316400 
254000 
367200 
254000 



321240 
270240 
327240 
505240 
364240 
505240 
364240 



000010 

000435' 

000000 

000427' 

000000 

000010 

000000 



(GET NEXT AVAILABLE FREE BLOCK 



0000 
0000 
0004 
0000 
0004 
0000 
0000 
0004 
0004 
0004 



NXTFREI PUSH 
PUSHJ 
MOVEI 
PUSHJ 
MOVEI 

FREXlTl POP 
POPJ 



PDP.TEM 

PDP.SETPTR 

TAC.0 

PDP.BLKSRA 

B'LK.B 

PDP.TEM 

PDP, 



(GET PREVIOUS FREE BLOCK 



LSTFRE! 



10 

02 

35' 

02 

64' 

05 

01 

47' 

56' 

47' 



MOVEI 

PUSH 

ADOI 

PUSHJ 

SUBI 

PUSHJ 

LDB 

CAMN 

JRST 

SOJG 

JRST 



TAC0 

PDP,TEM 

9LK.2 

PDP.SETPTR 

BLK, 2 

PDP.DECPTR 

TEM.OAT 

TEM.TAC 

FREXIT 

BLK, ,-4 

FREXIT 



000471' 

002366' 

000407' 

010500 

000466' 

060500 

000470' 



(DECREMENT BYTE POINTER 



DECPTRl JUMPL 

ADD 

JUMPG 

HRLI 

SOJA 

HRLI 

SOJA 



(SET DAT TO A BYTE POINTER 
(LOOK FOR FREE BLOCKS 
(FIND A ZERO BLOCK 
(NOT THERE- RETURN 



(SET DAT AS A POINTER 

IDECREMENT BYTE POINTER 

(INDEX TO BLOCK 

IFOUNO? 

(YES. RETURN 

ITRY AGAIN IF NOT AT START 

(REACHED START - RETURN BLK»0 



DAT, .♦S 

flAT.CBYTE (6) 5] 

DAT.CPOPJ 

OAT, 010500 

DAT.CPOPJ 

DAT, 060500 

DAT.CPOPJ 



IDECREMENT 
(IF POSITIVE - SAME WORD 
(RESET TO PREVIOS WORD 
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204 

295 

296 

297 

298 

299 

330 

301 

302 

303 

304 

305 

306 

307 

308 

309 

310 

311 

312 

313 

314 

315 

316 

317 

318 

319 

320 

321 

322 

323 

324 

325 

326 

327 

328 

329 

330 

331 

332 

333 

334 

335 

336 

33 7 

338 

339 

340 

341 

342 



000473 
000474 
000475 
000476 
000477 
000500 



000501 
000502 
000503 
000504 
000505 
000506 
000507 
000510 
000511 
000512 
000513 

000514 
000515 
000516 
000517 
000520 
000521 
000522 
000523 
000524 
000525 

000526 
000527 

000530 
000531 
000532 
000533 
000534 
000535 
000536 
000537 
000540 
000541 
000542 
000543 
000544 



201100 
260140 
254000 
137100 
370003 
253140 



602000 
254000 
260140 
254000 
200120 
350000 
540120 
606100 
434100 
202101 
335746 

344600 
275600 
200120 
202101 
574040 
271040 
554246 
274240 
322240 
506046 

260140 
342740 

201200 
661000 
260140 
3103200 
263140 
202206 
542206 
350000 
542220 
500060 
502046 
661000 
350003 



000000 

000424' 

000472' 

000005 

000001 

000432' 



COME HERE TO DELETE THE FILE WHOSE. "INDEX IS, INN TAG 



DLETF 



000100 

000431' 

000365' 

000562' 

000014 

000014 

000014' 

007777 

000000 

000026 

000016 

000567' 

000002 

000014 

000000 

000001 

000027 

000015 

000001 

000475' 

000016 

000473' 
000577' 

000144 

001000 

000644' 

001101 

000000 

000013 

000016 

000014 

000014 

000014 

000012 

000200 

000000 



(ENTER 
ENTR: 



ENTR2I 



ENTR AS 



ENTRC! 



MOVE! 

PUSHJ- 

JRST 

OPB 

SOS 

AOBJN 



TAC1.0 
PDP.BLKSRC 



CPOPJ [ALL THROUGH 
TAC1.0AT (DELETE IT 



I SET TO DELETE BLOCKS 

(FIND A RLOPK, BELONGING TO FILE 



A FILE 
TRNE 
JRST 
PUSHJ 
JRST 
MOVE 
AOS 
HRR 
TRNN 
IOR 
MOVE* 
SKIPGE 

AOJA 

SUBI 

MOVE 

MOVEM 

HLRE 

ADOI 

HLRZ 

SUB 

JUMPE 

HRLM 

PUSHJ 
AOJE 

MOVEI 

TLO 

PUSHJ 

CAILE 

POPJ 

MOVE" 

HRRM 

AOS 

HRRM 

HLL 

HLLM 

TLO 

AOS 



l(PDP) 
PDP.BLKSR3 



NAME IN DIRECTORY 
IOS.UDSO 
CPOPJl 
PDP.DSERCH 
NEWENT 
TAC1,S»UU0 
UUO 

TAC1,»UU0 
TACl.7777 
TAC1.THSDAT 
TAC1,26(TAC) 
AC3,0BLK(DFVOAT) 

UU0.SETW04 

UUO, 2 

TAC1,»UU0 

TACl.(TAC) 

TAC.TAC 

TAC27 

DAT, IBLK(OEV n AT) 

OAT.TAC 

DAT.CPOPJ 

TACOBLK(DEVDAT) 

PDP.DLETE 
AC3.FNTRD 

BLK.DIRBLK 
IOS.RVERSE 
PDP.USLSTA 
BLK.TOPBLK 
POP, 



I ADJUST PDL FOR RETURN 
(AND FIND NEXT MATCH 



INON STANDARD? 

J YES. RETURN : 

JNO, LOOK FOR MATCH 

(THIS IS A NEW ENTRY 

IPICK UP 2ND WORD (EXTENSION) 

I POINT TO WORD 3 

(ADD DATE 

(IS DATE ALHEADY THERE? 

(NO. ADD CURRENT DATE 

I INTO DIRECTORY 

US THIS A SAVE FILE (UGETF DONE 
IBEFORE THE ENTER?) 
(YES, STORE LENGTH IN DIRECTORY 
INO. POINT TO NAME 
IPICK IT UP 
(INTO DIRECTORY 
(COMPUTE INDEX OF FILE 

(INDEX OF INPUT FILE 
I WRITING SAME FILE AS READING? 
(TAKE ERROR RETURN IF YES 

("SAVE INDEX IN DDB 

(DELETE ALU BLOCKS BELONGING TO FILE 
IFIND FIRST FREE BLOCK ON TAPE IF THIS 
IIS A SAVE FILE (UGETF DONE! 
(NO. GET 1ST BLOCK CLOSE TO 
(DIRECTORY. GOING IN REVERSE 



(BLOCK LEGAL? 

(NO, ERROR RETURN 
RLK.ESTBLK(DEVOAT) (SAVE AS 1ST BLOCK 
BLK,0BLK(DEV1AT) (SAVE IN DDB 
UUO IPOINT UUO TO WORD 2 

PLK.dUUO (SAVE 1ST BLOCK IN USER'S AREA 
TACPUUO I GET EXTENSION 

TAC,DEVEXT<DEVDAT) (SAVE EXTENSION IN DDB ALSO 
IOS.WOLINK 
(POP) 
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IMARK DIRECTORY ENTRY POINTED TO BY BLK AS TAKEN 

MARKDRl PUSHJ PDP.ORPTR [SET POINTER TO BLOCK IN OIR 

HLRZ TACOBLKIDEVDAT) ;PICK UP INDEX 

IDPB TAC, BLK IMARK DIRECTORY 

TLO lOS.CHNGDR IOIRECTORY HAS CHANGED 

JRST STOIOS 

1JSET POINTER TO CORRECT DIRECTORY ENTRY 

DRPTRI SUBI BLK, I ISET FOR ILDB OR IDPB 

IDIVI BLK, 7 (COMPUTE WORD, POSITION 

ADD RLK,DLOC(DEVOAT) JGET CORRECT ADDRESS 

HRLI PLK, 440500 IMAKE IT A BYTE POINTER 

JUMPE nAT.CPOPJ (CORRECT FOR POSITION IN WORD 

IBP BLK 

SOJG r)AT,,-l 

POPJ PDP, 

(HERE FOR NEW FILE NAME ON ENTER 

NEWENT! SUB TACCXWD 26.263(START AT BEGINNING OF DIRECT. 

SKIPN (TAC) JFIND A FREE SLOT 

AOJA UU0.ENTR2 (RETURN WITH UUO POINTING TO WRD 2 

AOBJN TAC, .-2 

p O p J POP, INONE AVAILABLE, 

ISET UP LENGTH OF FILE IN DIRECTORY FOR A SAVE FILE 

SETWD4I MLRE TACl,»UUO I GET -LENGTH 

MOVNS TAC1 1+LENGTH 

HRRE TEM,t»UUO 

AOD TACl.TEM | *START ADDRESS 

TR? TAC1.1777 (STORE N-li WHERE N IS NO OF K 

LSH TAC1.2 

ORM TAC1,26(TAC) UNTO 2ND WRD OF DIRECTORY 

SOJA UUO.ENTRA ICONTINUE WITH ENTER 

ENTRDI MOVEI TAC, 3 (GET THE 1ST FREE BLOCK ON TAPE 

PUSHJ PDP.BLKSRC IAS THE 1ST LOGICAL BLOCK OF THE FILE 

POPJ PDP, INONE AVAILABLF 

JRST ENTRC ICONTINUE WITH ENTER 



343 








344 


000545 


260140 


000552* 


345 


000546 


554046 


000016 


346 


000547 


136040 


000004 


347 


000550 


661000 


000400 


348 


000551 


254000 


000343' 


349 








350 








351 


000552 


275200 


000001 


352 


000553 


231200 


000007 


353 


000554 


270206 


000014 


354 


000555 


505200 


440500 


355 


000556 


322240 


000524' 


356 


000557 


133000 


000004 


357 


000560 


367240 


000557' 


358 


000561 


263140 


000000 


359 








360 








361 


000562 


274040 


002367' 


362 


000563 


336001 


000000 


363 


000564 


344600 


000505' 


364 


000565 


253040 


000563' 


365 


000566 


263140 


000000 


366 








367 








368 








369 


000567 


574120 


000014 


370 


000570 


213000 


000002 


371 


000571 


570420 


000014 


372 


000572 


270100 


000010 


373 


000573 


620100 


001777 


374 


000574 


242100 


000002 


375 


000575 


436101 


000026 


376 


000576 


364600 


000515' 


377 








378 


000577 


201040 


000000 


379 


000600 


260140 


000424' 


380 


000601 


263140 


000000 


381 


000602 


254000 


000535' 
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3P2 1USETI - SET NEXT INPUT BLOCK TO READ 

3fl3 0006(53 630000 002370' SETI: TDZ IOS.CXWD I OE^D, I ODEND] 

384 000604 334240 000006 SKIPA DAT.DEVDAT 
315 

386 IUSETO - SET NEXT OUTPUT BLOCK TO REAQ 

387 000605 201246 002001 SETOi MOVEI nAT , 1 < OEVDAT ) 

3B8 000606 260140 000420' PUSHJ PDP.WAIT1 IWAIT FOR BUFFERS TO FILL (OR EMPTY) 

389 000607 5426A5 000015 WRRM UUO , I BLK < DAT ) ISET BLOCK NUMBFR 

390 000610 254000 000551' JRST STOIOS ISTOE IOS, PDPJ 
391 

392 IUGETF - GET NEXT FREE BLOCK FOR THIS FILE 

393 000611 260140 000606' GETF: PUSHJ PDP.WAIU IWAIT T[LL BUFFERS EMPTY 

394 000612 260140 000410' PUSHJ PDP.OIRCHK IENSURE 01", IN CORE 

395 000613 260140 000620' PUSHJ PDP.USRFRE IGET NEXT AVAILABLE BLOCK 

396 000614 336006 000016 SKIPN OBLKtDEVDAT) (HAS AN ENTER OR LOOKUP BEEN DONE? 

397 000615 477206 000016 SETOB BLK , OBLK (DEVOAT) INO, SET SWITCH SO THAT THE NEXT ENTER 

398 ' I WILL FINF FIRST FREE BLOCK ON TAPE 

399 000616 200040 000004 MOVE TAC.BLK ITELL USER THE BLOCK NUMBER 

400 000617 254000 000000 JRST STOTAC 
401 

402 

403 IGET NEXT (OR PREVIOUS) FREE BLOCK 

404 000620 201400 000004 USRFREl MOVEI TEM, SPACE IBLOCKS "SPACE" APART 

405 000621 135200 000000 LOB 9LK,PI0M0D IEXCEPT DUMP AND SAVMOD FILES 

406 000622 301200 000015 CAIL BLK.SD I OR ONE OF DUMP MOOES? 

407 000623 201400 000002 MOVEI TEM, 2 IYESi WHICH ARE CLOSER 

408 000624 550206 000016 USRFRAl HRRZ BLK , OBLK (DEVOAT ) ICURRENT BLOCK 

409 000625 603000 001000 TLNE IOS.RVERSE IFORWARD? 

410 000626 254000 000641' JRST USflLST INO 

411 000627 271210 000000 ADDI BLK, (TEM) IYES. FIND NEXT BLOCK AT LEAST N 

412 000630 303200 001101 CAILE BLK.TOPBLK 

413 000631 634200 000004 TDZA BLK, BLK 

414 000632 260140 000442' CALNXTl PUSHJ PDP.NXTFRE IBLOCKS PAST THIS ONE 

415 000633 326200 000610' JUMPN BLK, STOIOS IRETURN IF FOUND 

416 000634 663400 000001 TLOE TEM,1 IFOUND NONE ON THIS PASS 

417 000635 254000 000646' JRST NOBLKS ITAPE IS FULL 

418 000636 641000 001000 TLC IOS,RVERSE IREVERSE DIRECTION 

419 000637 541400 000001 HRRI TEM.1 ISTART LOOKING AT NEXT BLOCK IN OTHER DIRECTION 

420 000640 254000 000624' JRST USRFRA 

421 000641 275210 000000 USRLSTl SUBI BLK, (TEM) ILOOK FOR FREE BLOCK N BEFORE 

422 000642 337000 000004 SKIPG BLK 

423 000643 634200 000004 TDZA BLK, BLK IREVERSE IF AT FRONT OF TAPE 

424 000644 260140 000451' USLSTAi PUSHJ PDP.LSTFRE I THIS ONE 

425 000645 254000 000633' JRST CALNXT*! 
426 

427 

428 (NO FREE BLOCKS AVAILABLE. GIVE HIGH BLOCKiSET IOBKTL LATER 

429 000646 201200 001102 NOBLKS! MOVEI BLK.TOPBLK'l ISET HIGH BLOCK 

430 000647 263140 000000 POPJ POP, 
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431 (UTPCLR UUO 

432 000650 602000 000100 UTPCLRl TRNE I0S.UDSD 

433 000651 263140 0000(50 POPJ PDP, IFORGET IT FOR NON-STANDARD 

434 000652 205040 400000 MOVSI TACOVOIRIN ISET I RECTORY- [N-CORE BIT 

435 000653 436046 000004 ORM TAC .OEVMOD < DEVDAT ) 

436 000654 661000 000400 TLO . IOS.CHNGOR (DIRECTORY HAS CHANGED 

437 000655 550046 000014 HRRH TAC , DLOC ( OEVOAT > (LOC OF DIRECTORY 

438 000656 504100 000001 MRU TAC1,TAC 

439 000657 541131 000001 HRRI TAC1.KTAC) »BLT POINTER 

440 000660 402001 000000 SET2M (TAC) 

441 000661 251101 000176 BLT TACl , 176 ( T AC ) ILEAVE LAST WORD IN OIR, ALONE 

442 000662 205100 017000 MOVSI TACl, 17000 IMARK DIRECTORY AS UNAVAILABLE 

443 000663 202101 000016 MOVEM TAC1,16(TAC) 

444 000664 205100 757000 MOVSI TACl, 757000 IRESERVE BLOCKS 1 AND 2 

445 000665 202101 000000 MOVEM TACl, (TAC) IFOR READ IN MODE LOADER 

446 000666 205100 777770 MOVSI TACl, 777770 (MARK BLOCKS 1102-1105 AS 

447 000667 456101 000122 ORCAM TACl .NAMSTR-1 ( TAC ) UNAVAILABLE ALSO 

448 000670 254000 000633' JRST STOIOS 
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449 

450 

451 

452 

453 

454 

455 

456 

457 

458 

459 

462 

461 

462 

463 

464 

465 

466 

467 

468 

469 

470 

471 



000671 
000672 
000673 
000674 
000675 
000676 
000677 
000700 
000701 
000702 
000703 
000704 



000705 
000706 
000707 
000710 



623000 
602000 
2540H0 
135040 
3131040 
2540F0 
201066 
2001"1 
667100 
202101 
202006 
254000 



661000 
260140 
402000 
402000 



000200 

000100 

000670 ' 

000621' 

000016 

000705 ' 

000010 

000001 

777777 

000001 

000002 

000000 



setose 

UCLS: 



024020 
000742' 
002164' 
002165' 



UUO 
TLHE 
TRNE 
JRST 
LOB 
CAIL 
JRST 
MOVE! 
MOVE 
TLON 
MOVEM 
MOVEM 
JRST 



!f?l'fmbn NK MS LAST BL0CK N0T LINKED? 

IOS.UDSD 1AND NOT NON-STD? 

STOIOS IYES. RETURN 

TAC.PIOMOD |NO. WRITE LAST BLOCK 

TAC.16 IDUMP MOOE? 

^LSOMP iyes. CLOSE DUMP MODE 

TAC,5>DEVOAD<nEVDAT) ILOC OF BUFFER 

TAC1.KTAC) ILINK WORD 

TAC l«-t ILINK*-1 IF NOT SPECIFIED 

TACl.l(TAC) (LINK = -1... EOF 

lOS.DEVJOSlDEVOAT) (SAVE IDS 

0LJT >GO TO WRITE RECORD 



000711 254000 001064' 



(HERE TO CLOSE A DUMP MODE FILE 

CLSDMPl TLO IOS,OMPCLS+in*riMPMOD JSET SWITCHES 

PUSHJ POP.GETDT , G ET CONTROL 

j-. 1 )! , (ENSURE ?ERO LINK.WOROCOUNT 

RUF * 1 ,MAI<E SURE 0, SO CAN GET WITH 3 SERIES MoN. 

n „ ril , , 'f'LES SAVED WITH 4 SERIES MONITOR. 

OUFULL | GO WRITE THE BLOCK 



SET?M 
SETZM 



JRST 
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472 
473 
474 
475 
476 
477 
478 
479 
480 
481 
482 
483 
484 
485 
486 
487 
488 
489 
490 



000712 
000713 
000714 
000715 
000716 
000717 
000720 
000721 
000722 
000723 
000724 
000725 
000726 
000727 



000730 
000731 



260140 
260140 
205040 
6220.10 
412046 
337006 
627000 
254000 
661000 
260140 
661000 
201200 
260140 
260140 



200046 
603040 



(RELEASE UUO 
300611' URELt PUSHJ 



101235' 
4000(10 

000100 

000004 

000004 

000400 

000730' 

000020 

000742' 

010000 

000144 

001110 1 

000712' 



000007 
200000 



UREL2! 



PUSHJ 

MOVSI 

TRZE 

ANDCAM 

SKIPT, 

TI.ZN 

JRST 

TLO 

PUSHJ 

TLO 

"0VE1 

PUSHJ 

PUSHJ 



MOVE 
TL"E 



PDP.WAIT1 IMAKE SURE THE TAPE IS STOPPED 
PDP.NXTCM2 ICLEAR OUT DUMP-MODE STUFF 
TACDVOIRIN ![F NONSTANDARD. WILL CLEAR 
IOS.UDSQ ICLEAR NON-STANDARD BIT, 

TAC.OEVMODIDEVOAT) ISO DIRECTORY WILL BE READ ANEW 
DEVMOD(DEVDAT) HF DIRECTORY MAS BEEN 



IOS.CHNGDR 

UREL2 

I OS, 10 

POP.RETDT 

IOS.RWOIR 

BLK.DIRBLK 

POP, WRT8LK 

PDP.WAIT1 



(MODIFIED IT MUSY RE WRITTEN 
I IT HASN'T BEEN CHANGED 

(WAIT TILL DTC AVAILABLE 

(GOING TO WRITE DIRECTORY 

(BLOCK NUMBER 

(WRITE UT 

(WAIT TILL IT HAS BEEN WRITTEN 



TACDEVIAD(DEVOAT) (BITS 1.2 ARE COUNT OF CHANS 
TAC, 200000 IDEV INITED ON ANOTHER CHANNEL TOO? 



491 
492 
493 
494 
495 
496 
497 
498 
499 
500 
501 
502 
503 



000732 263140 000003 OUANTL! POPJ 



000733 
000734 
000735 



POP, QUANT 



(YFS. DO-NT ZAP [OS OR ODB 



621000 
402006 
402006 



077600 
000016 
000015 



(SOME BITS IN THE 10S WORD AND THE DDB WILL NORMALLY BE CHANGED ON THE! 
(INTERRUPT LEVEL AFTER THE RELEASE, BUT HNGSTP CAN CAUSE THESE ACTIONS 
INEVFR TO OCCUR. SO MAKE SURF THEY REALLY HAPPENED 



TLZ 

SETZM 

SETZM 



105,77400 

OBLK(DEVDAT) 

IBLK(DFVDAT) 



000736 402006 000013 

000737 254000 000673' 



SETZM FSTBLK(DEVDAT) 



JRST 



STOIOS 



(ZERO IOS BITS 

(AND OBLK 

(ZERO IBLK SO WRITING A FILE AFTER REAPING 

(IT WILL WORK (CHECK IS MADE AT FNTER) 

(STORE IOS AND RETURN 



DTASRN 



5PI4 

505 
506 
507 
508 
5719 
510 
511 
512 
5)3 
514 
515 
516 
517 
518 
519 
5?0 
571 
522 
5?3 
524 
525 
526 
5?7 
528 
529 
530 
531 
532 
533 
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000740 
000741 

000742 
000743 
000744 
000745 
000746 
000747 
000750 
000751 
000752 
000753 
000754 
000755 
000756 
000757 
000760 

000761 
000762 



000763 
000764 



260140 
260140 

603000 
254000 
352000 
260140 
135040 
242040 
732201 
732700 
254000 
603000 
732740 
334040 
254000 
552040 
732200 

202300 
254000 



260140 
260140 



000000 
000000 

100000 

000740' 

000000 
000000 
000000 
000011 

030000 

000100 

000763' 

000020 

004000 

000732' 

000763' 

002151' 

010000 

002142' 
000740 ■ 



001747' 

000000 



GETOTll 



GETDT0I PUSHJ 
PUSHJ 
(GET DEC TAPE 
GETDT! TLNE 
JRST 
AOSE 
PUSHJ 
LD9 
LSH 
CONO 
CONSH 
JRST 
TINE 
CONSO 
SKIPA 
JRST 
HRR2M 
nONO 

MOVEM 
JRST 



PDP.SETACT 
POP.WSYNC 
CONTROLLER 
10S.REWBIT 
GETDT0 
DTREO 

PDP.OTWAIT 
TAC.PUKJIT 
TAC.ll 

DTC,30000(TAI") 
DTS.100 
QUEST 
IOS.IO 
DTS.4000 
TACQUANTL 
OUEST 

TACOUANTM 
ETC, 10000 

DEVDAT.USEWRD 
SETACT 



IWAIT TILL TAPE COMES OUT OF REWIND 
IBEFORE DOING ANYTHING ELSE TO [T 

I IF TAPE IS REWINDING NOW 

(WAIT TILL THRU BEFORE CONTINUING 

(CAN I HAVE IT 

(NO. COME RACK LATER 

(HAVE CONTROL NOW 

(CONNECT TO DTA 

ISEE IF TAPE IS OK 

1SFLECT ERROR? 

(YES, COMPLAIN 

(NO, TRYING TO WRITE. TAPE? 

(YES. WRITE PROTECTED? 

INO, EVERYTHING IS OK 

IYES. COMPLAIN 

ISFT UP NUMBER OF BLOCKS TO KEEP CONTROL FOR 

(DESELECT CONTROL SO FNDBLK TEST 

(WILL WORK RIGHT (CONCO DTC, 20000) 

(SAVE ACS NEEDED ON INTERRUPT LEVEL 

(LIGHT IOACT AND RETURN 



(COME HERE TO COMPLAIN ABOUT UNIT NOT RIGHT (SELECT OR PROTECT ERROR) 



OUESTI 



000765 254000 000744' 



PUSHJ 

PUSHJ 



JRST 



PDP.THRUTD 
PDP.HNGSTP 



GET0T1 



(GIVE UP CONTROL 

(TYPE "DTAN OK?" 

(NOTE -- AC BLK <=ITEM> USED TO BE 

I PUSHED HERF.i BUT IS NOT ANY LONGER 

I BECAUSE HNRSTP NOW PRESERVES IT, 

( AND THF STACK IS VERY FULL. 

IGET CONTROL AGAIN AND RET^Y 
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534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
546 
549 
550 
551 
552 

553 
554 
555 
556 
557 
558 
559 
560 
561 
562 
563 
564 



(100766 
000766 

000767 
000770 
000771 



000772 
000773 
000774 
000775 
000776 
000777 
001000 
001001 

001002 
001003 



001004 
001005 
001006 
001007 
001010 
001011 
001012 
001013 



EXTERN JOBDDT.USRDDT 
;dump MODE INPUT 



550706 

621000 
260140 
254000 



621000 
550206 
260140 
602000 
254000 
322200 
260140 
607000 

302200 
25405)0 



260140 
504046 
201126 
541042 
251042 
260140 
255000 
263140 



000015 

000020 
001134' 

0010241 



000020 

000015 

000737' 

000100 

001243' 

001020' 

001014' 

004000 

000144 
001243' 



000410 ' 

000014 

000007 

000001 

000200 

000000 

000000 

000000 



OMPI I 



IFN 

HRRZ 

tlz 

PUSHJ 
JRST 



CPSIT, < 

AC2, IBLK(DEVOAT) 

I OS, 10 

PDP.OMPSET 

ZERCOR 



ISET UP DUMP-MODE STUFF 

IZERO USER'S CORE IF SAVE-MODE 



I INPUT UUO 



UINI 



TUZ 

HRRZ 

PUSHJ 

TRNE 

JRST 

JUMPE 

PUSHJ 

TLMN 

CAIE 
JRST 



IOS, 10 

eUK,IBLK(DEVDAT> (BLOCK TO RFAO 

PDP.STOIOS 

IOS.UDSD |NON STANDAR? 

REAOPF 

BLK.EOF )0 MEANS EOT 

PDP.RUKCHK (CHECK LEGALITY OF BLOCK NUMBER 

IOS.OMPMOD (DUMP MOflE? 



BLK.PIIRBLK 
REAORF 



ITRYING TO REAO DIRECTORY? 
(NO, GO READ 



(READING DIRECTORY - GIVE CORE IMAGE IF IT EXISTS 

PUSHJ PDP.DIRCHK (REAO IT IF IT ISN'T IN ALREADY 
TACDLOC(DEVOAT) (LOO OF DIRECTORY 
TAC1,»DEVIAD(DEVDAT) (WHERE USER WANTS IT 



HRL 

MOVE I 

HRRI 

BLT; 

PUSHJ 

JFCL 

POPJ 



TAC.KTAC1) 

TAC,200(TAC1) 

PDP.ADVBFF 

PDP, 



(LOC OF DATA 
(GIVE IT TO HIM 
(ADVANCE BUFFERS 



OTASRN 
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565 
566 
567 
568 
569 
570 
571 
572 
573 
574 
575 
576 
577 
578 
579 
580 
581 
582 
583 
584 
5B5 
586 
587 



{"01014 
001015 
001016 
00101.7 



001020 
001021 
001022 
001023 



001024 
001025 
001026 
001027 
(101030 
001031 
001032 
001033 
001034 



307200 
263140 
262140 
664000 



661000 
607000 
2540^0 
254000 



201047 
505041 
207000 
550106 
271107 
402001 
251042 
402000 
2540*0 



;CHECK VALIDITY OF BLOCK NUMBER 

001101 BLKCHKi CAIG BLK.TOPBLK ILEGAL? 

000000 POPJ POP. (YES. RETURN 

000001 POP PDP.TAC 

040000 TROA lOS.IORKTL INO. LIGHT ERROR BIT 



i INPUT BLOCK = - END OF FILE 
000040 EOF: TLO IOS.IOENO 
004000 TLNN IOS.DMPMOD 
000774' JRST STOIOS 
002073' JRST QMPEOF 



ILIGHT EOF BIT 



IGIVE UP CONTROL IF" DUMP-MODE 



000000 

000001 
000001 

000020 
000000 
777777 
000000 
000000 
000772' 



JZFRO USER'S CORF ON SAVE-MonE INPUT 

2ERCDR! MOVEI TAC, JOBDOT(PROG) IZERO CORE 

HRLI TACKTAC) 

10VSS TAC IBLT POINTER 

MRRZ TACl,OMPLST(OEVDAT) ITOP CELL TO ZERO (-175) 

AOOI TAC1,(PR0G) IRELOCATE TO USER AREA 

SET?* -KTAC) IZERO 

3LT TAC(TACl) 

SETZM USROOT IDDT IS KEPT IN PROTECTED PART 

JRST UIN 



DTASRN 
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588 
589 
590 
591 
592 
593 
594 
595 
596 
597 
598 
599 
600 
601 
602 
603 
604 
605 
606 

607 
608 
609 
610 
611 
612 
613 
614 
615 
616 



001035 

001036 

301037 
001040 
001041 



001042 
001043 
001044 
001045 
001046 
001047 
001050 
001051 
001052 

001053 
001054 
001055 
001056 
001056 
001057 
001060 
001061 
001062 
001063 



260140 

550706 

6610?0 
260140 
255000 



661000 
602000 
254000 
260140 
661000 
550206 
306200 
254000 
322200 

260140 
607000 
260140 

603000 
2540^0 
205066 
270040 
251040 
621000 



000410 1 DMPOl 

000016 

000020 

001134' 

000000 



iDUMP MODE OUTPUT 



PUSHJ 
I FN 
HRRZ 

TLO 

PUSHJ 

JFCL 



000020 

000100 

001054' 

000410' 

000020 

000016 

000144 

001115' 

001125' 

001014' 

004000 
000742' 

004000 

001175' 

000010 

002371' 

002363' 

000200 



(OUTPUT UUO 



UOUT! 



U0UT2! 



FILBUF! 

rnocwKi 



TLO 

TRNE 

JRST 

PUSHJ 

TLO 

HRR2 

CAIN 

JRST 

JUMPE 

PUSHJ 
TLNN 

PUSHJ 

TLNE 
JRST 
«OVSI 
ADD 

BLT 
TLZ 



POP, DIRCHK 
CP9IT, < 

AC2,0BLK(DEV0AT> 

IOS.IO 

PDP.DMPSET 



IMAKE SURE DIRECTORY IS IN CORE 



(SET DUMP-MODE POINTERS 



INON STANDARD? 

IYES 

INO. MAKE SURE OIRECTORY IS IN CORE 

IIP DIRCHK READ, 10 WENT OFF 



IOS.IO 

IOS.UDSD 

U0UT2 

PDP. DIRCHK 

IOS, 10 

RLK.OBLK(DEVDAT) 

BLK.D1RBLK ICHECK IF WRITING OIRECTORY 

C0R2HM (YES, WRITE CORE IMAGE 

RLK.FAKADV (DONT WRITF IF NO BLOCK GIVEN 

POP.P.LKCHK (CHECK FOR LEGAL BLOCK 

IOS.DMPMOD (ALREADY HAVE CONTROL IF DUMP-MODE 

POP.GETOT (GET DEC TAPE CONTROLLER 

IOS.DMPMOD IDUMP MODE? 

DMPFIL (YES. FILL BUFFER FROM LIST 

TAC.PDEVOADinEVDAT) (LOCATION OF BUFFER 

TACCXWD 1,BUF3)SET TO STORE IN MONITOR BUFFER 

TACBUF + 177 (GO BLT IT 

IOS.NOLINK 
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617 


("01064 


602000 


000100 


OUFULL! 


TPNE 


IOS.UDSO 


61B 


001065 


254000 


001106' 




JRST 


0UTHL2 


619 


001066 


5742-0 


002164' 




HLPE 


BLK.BUF 


6?0 


001067 


3212-:<0 


001113' 




JUMPL 


RLK.LSTPUK 


621 


001070 


3262?0 


001075' 




JUMPN 


RLK, OUTBLK 


622 


001071 


603000 


020000 




TLNE 


IOS.OMPCUS 


623 












(DM 


5?1 


001072 


251070 


001075' 




JRST 


OUTBLK 


625 


001073 


260140 


000620' 


OUCOMPl 


PUSHJ 


PDP.USRFRE 


676 


001074 


6610!'0 


000200 




TLO 


IOS,NOLl K1 K 


627 


001075 


5062^0 


002164' 


outblk: 


URLM 


BLK.RUF 


628 


001076 


200406 


000013 




MOVE 


TEM,FST3LK( 


6?9 


001077 


137400 


002372' 




npo 


TEMi CPOINT 


650 


001100 


550406 


000016 




HRRH 


TEM,OBLK(DE 


6,11 


001101 


542236 


000016 




HRRM 


BLK,nBU'K(DE 


63 2 


001102 


2002" 


000010 




MOVE 


BLK.TEM 


633 


001103 


260140 


001014' 




PUSHJ 


PDP.RLKCHK 


634 


001104 


260140 


000545' 




PUSHJ 


POP.MARKDR 


635 


001105 


3342^0 


000010 




SKIPA 


5LK.TEM 


636 


0011^6 


5502^6 


000016 


0UT8L<!l 


HRRZ 


8LK,0BLK(0E 


637 
638 


001107 


260140 


001022' 




PUSHJ 


POP.STOIOS 


63 9 
640 


001110 


260140 


001341 l 


WRTBLKl 


PUSHJ 


PDP.FNOBLK 


641 


001111 


200100 


002373' 




HOVE 


TAC1.CBLKO 1 


642 


001112 


254000 


001247 ' 




JRST 


RDWRT 



I NON-STANDARD? 

(YES. MO FILF-STRUCTURED OPERATIONS 

US IT? 

IVES, - LAST BLOCK OF FILE 

J IF NON-0 - YES 

INO. LAST BLiCK OF A DUMP FILE? 
PCLS WILL BE TURNFD OFF AT THE INTERRUPT 

» YES . I INK MUST STAY 

(COMPUTE NEXT BLOCK 

ITHIS BLOCK MOT LINKED 
iSAVE LINK IN 1ST WORD OF BLOCK 
OFVDAT) iSTORE 1ST BLOCK OF FILE IN WORD 
1",PUF,27] 

VflAT) ;BLOCK TO WRITE NOW 
VRATl (BLOCK TO WRITE NEXT 

ICHECK LEGALITY OF BLOCK 

IMARK BLOCK TAKEN IN DIRECTORY 

VfUT) 



(GO SEARCH FOR BLOCK 
TAC1.CBLKO DTC.700: IHERF WE ARE - GO WRITE 



DTASRN 



643 
644 
645 
646 
647 
648 
649 
650 
651 
652 
653 
654 
655 
656 
657 
658 
659 
660 
661 
662 
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001113 
001114 



001115 
001116 
001117 
001120 
001121 
001122 
001123 
001124 
001125 
001126 
001127 
001130 
001131 
001132 
001133 



201200 
254000 



201066 
505041 
540046 
201101 
251042 
661000 
205100 
436106 
623000 
254000 
260140 
255000 
621000 
402006 
254000 



IWRITE LAST 8L0CK 
000000 |_STB|_Kt MOVEI BLK,0 
001075' JRST: OUTBL.K 



ILINK=0 

I GO WRITE LAST BLOCK 



000010 

000001 

000014 

000177 

000000 

000400 

400000 

000004 

004000 

001747 ' 

000000 

000000 

000200 

000016 

001107' 



(TRYING 
C0R2HMI 



IT 



FAKADVl 



TO WRITE DIRECTORY - STORE IN CORE 

MOVE! TAC,»DEVOAO(nEVDAT) IWHERE IT IS 

TACKTAC) 

TACDLOCIDEVDAT) IWHERE TO PUT 

TACl,177(TAC) 

TAC.(TACl) 

IOS.CHNGDR IREMEMBER TO WRITE IT OUT 

TACl,DVOIR! 

TACl,DEVMOP(BEVDAT) IDIR. IS NOW IN CORE 

IOS.OMPMOO 



HRLI 

HRR 

MOVEI 

BLT 

TLO 

MOVSI 

ORM 

TLHE 

JRST 

PUSHJ 

JFCL 

TLZ 

SETiM 

JRST 



THRUTD 
POP.ADVBFE 

IOS.NOLINK 

OBLK(OEVDAT) 

STOIOS 



IDUMP MODE? 

IYES. GIVE UP CONTROL 

IAOVANCE BUFFERS 

IOIRECTORY BLOCK IS NOT LINKED 
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663 

664 

665 

666 

667 

668 

669 

670 

671 

672 

673 

674 

675 

6 76 

677 

678 

679 

610 

SRI 

692 

613 

6 "4 

515 

6S6 

6R7 

68S 

6R9 

690 

691 

692 

693 

694 

605 

696 

697 

698 

699 

7 

701 

772 

7513 

774 

7175 

7f>6 



701134 
001135 
001136 
001137 
701 140 
701141 

001142 
001143 

001144 
001145 
001146 

001147 
001150 



("01151 

001152 

001153 

001154 

001155 

001156 

001157 

001160 

001161 

001162 

001163 

001164 

001165 

001166 

001167 

001170 

001171 



260140 
6610:"0 
260140 
2540170 
331060 
2540(10 

602000 
364240 

370000 
2026 , 6 
254070 



000742 1 

004000 

000000 

002075' 

007014 

001147' 

000100 
001151' 

000014 
000020 
000502 • 



(SET UP 
TMPSfT : 



POINTERS AND Stuff F^R QIIMP-moDE 



PUSHJ 

TLO 

PUSHJ 

JRST 

SKIPL 

jRST 



PUP,GET:jT 

IOS.nMPMnc 

PDP.CO^CHK 

SV«OER 

TAC, »UUO 

DMPTS1 



IFM CP8IT, < 



IGET CONTROL 

"LIGHT BIT 

(CHECK VALIDITY OF LIST 

INC GIVF. ADRESS ERROR 

(OK, NULL LIST? 

IVES. RETURN 



0MPST2: 



TRNE 
SOJA 

SOS 

"OVE" 

JRST 



IOS.UDSD 
DAT.TOUSFR 



I NO. NQN-STD MODE? 
I YES. GO ELSEWHERE 



262140 000001 OMPTSlI POP 
2540P0 001747' jRST 



UUO 

UUn,DMPLST(OFVOAT) 

CP0PJ1 

POP, TAC 

THRuTO 



INO. SAVE START OF LIST {-J ) 



IFN CPRIT, < 



3227 "0 

240240 

3500-50 

202240 

201620 

202670 

202670 

271047 

202040 

200040 

202040 

552340 

661070 

607070 

254000 

262140 

254070 



001172' 

777771 

000075 

002157' 

000014 

002161' 

002160 ' 

000000 

002145' 

002374' 

000000 

002144' 

040000 

000020 

001146' 

000001 

001176' 



IHERE TO START DUMP-MODE INTO M S ER AREA DIRECTLY 
TOUSER: JUMPE *c?.*OPLKB (CANT R E AD 8LK IN NON-STO DU 
AbH DAT, -7 (NUMBER OF ^RDS IN LIST /270 



MP MODE 



T0USR1I 



AOS 

"OVEM 

"OVEI 

MOVEM 

10VEM 

ADOI 

MOVE* 

MOVE 

MOVEM 

MRRHM 

TLO 

TLNN 

JRST 

POP 

JRST 



OAT 

OAT.BLKCNT 

UU0,9UU0 

UUO.uSPNTR 

UUO.SVPMTR 

TAC, (PROG) 

TAC.PNTR 



ISAVE TO UPDATE POSITION 
(REAL ADDRESS OF LIST 
(SAVE IT 

(RELOCATE ADDRESS OF 1ST IOWD 
(AND SAVE IT 



TACCJSR DMPADV] (SET UP LOC FOR 



001172 660000 400000 NORLK0! TRO 

001173 262140 000021 pop 

001174 254070 001747' jRS T 

> 



TAC.DTALC2 
PROG, ADRPRG 
IOS.NORUF 
IOS, 10 
CPOpjl 
POP, TAC 
0UTBL2 



IOS, IOIMPM 
POP, TAC 
THRUTO 



WHEN 



I IOWD IS EXHAUSTED 

(SAVE JUST ADDRESS OF PROG 

(INDICATE DIRECTLY TO USER 



(READING 
(WRITING 



CONTINUE 

THIS WILL SAVE LOTS OF TIME 



(RETURN TO UUOCON WITH ERROR BIT SET 
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707 
708 
709 
710 
711 
712 
713 
714 
715 
716 
717 
71R 
719 
720 
721 
7?2 
723 
724 
725 
726 
727 
728 
729 
730 
731 
732 
733 
734 
735 
736 
737 
738 
739 
740 
741 
742 
743 
744 
745 
746 
747 
748 
749 
750 
751 
752 
753 
754 
755 
756 
757 



001175 205100 777601 DMPFIL: 



(FILL OUTPUT BUFFER FROM LIST 



001176 
001177 
001200 
001201 
001202 
001203 
001204 

001205 



001205 
001206 
001207 
001210 
001211 
001212 
001213 
001214 



001220 
001221 



001224 
001225 
001226 
001227 
001230 
001231 
001232 
001233 
001234 



260140 
254000 
200401 
202402 
2521^10 
253040 
254000 



552100 
402002 
551102 
3031*10 
254000 
505102 
251100 
254000 



001224' 

001205 ' 

000000 

002165' 

001215' 

001200' 

001176' 



MOVSI 
IFE 
TRNE 
SUB 

> 

OMPFLBI PUSHJ 
JRST 

DMPFLAI MOVE 
MOVEM 
AOBJP 
AORJN 
JRST 



TAC1.-177 
CPRIT, < 
IOS.UDSO 
TACl.ONEONE 

POPiNXTcOM 

DMPOTH 

TEM, (TAC) 

TEM,BUF*1(TAC1) 

TACl.DMPOVR 

TAC, ,-3 

OMPFLB 



1200 DATA WORDS IF NON-STANDARD 

IGET NEXT COMMAND 

IEND OF LIST 

IGET NEXT WORD 

UNTO BUFFER 

I8UFFER FULL IF GOES 

IGET NEXT WORD FROM COMMAND 

IGFT NEXT COMMAND 



DMPOTH! 



002164' 

002165' 

002166 ' 

002363' 

001064' 

777777 

002363' 

001064' 



IFE CP8IT. < 

TRNN lOS.UDSD 

HRR2M TAC1.BUF ILIST RAN OUT SAVE WORD COUNT 

SET?M RUF*1(TAC1) (ZERO REST OF BUFFER 

HRRZI TAC1,SIIF*2(TAC1) 

CAILE TAC1.BUF+177 (JUST ZERO 1 WORD IF AT TOP 

JRST OUFULL 

WRLI TAC1,-1(TAC1) 

RLT TACl,BUF*177 |«<t«*TEST IF TOP OF BUFFER 

JRST OUFULL INOW WRITE BUFFER 



IBUFFER FULL BEFORE END OF COMMAND 



001215 253040 001220' DMPOVRl AOBJM TAC, +3 



001216 260140 001224' 

001217 201040 000000 



PUSHJ PDP.NXTCOM 



202046 
201040 



000021 
000177 



001222 202040 002164' 

001223 254000 001064' 



MOVEI 
MOVEM 
DMPOVAI MOVEI 
IFE 
TRNN 



MOVE* 
JRST 



TAC0 
TAC,SVOWRD(DEVDAT) 
TAC, 177 
CPRIT, < 
IOS.UDSO" 



IWAS THAT LAST WORD OF COMMAND? 
IYES, GET NEXT 



INO. SAVE REMAINDER OF COMMAND 



TAC.BUF 
OUFULL 



IWD CNT =177 

igo write part of stuff 



336006 
254000 
354046 
542046 
200060 
322040 
327040 
271047 
344040 



000020 

001235' 

000020 

000020 

000001 

001235' 

001227' 

000000 

001167' 



IGET NEXT COMMAND FROM LIST 

NXTCOM! SKIPN nMPLST(DEVDAT) (END OF COMM4N0S? 

JRST NXTCM2 IYES. RETURN 

AOSA TACDMPLST(DEVDAT) IGET NEXT COMMAND 

NXTCM1I HRRM TAC,nMPLST<DFVDAT) {STORE GO-TO ADDRESS 

MOVE TAC, STAC IGET COMMAND 

JUMPE TAC.NXTCM2 IEND OF LIST 

JUMPO TACNXTCM1 IGO-TO WORD 

ADD! TAC, (PROG) IREAL COMMAND - ADD RELOCATION 

AOJA TACCP0PJ1 IAND RETURN 
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758 
759 
760 
761 
762 
763 
761 
765 
766 



001235 402026 

001236 4020H6 

001237 263140 



C05240 332046 

001241 2540C0 

001242 2540C0 



! ENJD OF DUMP-MODE LIST 

000021 NXTCM2! SETZ" SVOWRD ( DFVOAT ) 

000020 SETZ" DMPLRT (DFVOAT ) 

000000 POPj PDP> 



IZERO POINTERS 



000021 DMPFLC: 
001200 1 
002032 ' 



SKIPF TAC,SVDWRD(DFVDAT) MS THERE ANOTHER COMMAND 
JRST IIMPFLA IYES. GET IT 

JRST DMPTM2 I NO , THROUGH 
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767 
768 
769 
770 
771 
772 
773 
774 
775 
776 
777 
778 
779 
780 
781 
782 
7B3 
784 
785 



001243 607000 



001245 
001246 



001247 
001250 
001251 
001252 
001253 
001254 



000320 DTC=320 
000324 0TSs324 

IIO INTERFACE 
004000 REAOBFl TLNN IOS.OMPMDD 



001244 260140 000742' RDBLUKI PUSHJ PDP.GETOT 



260140 
200100 



502100 
505040 
607000 
334040 
540046 
732300 



001341' REAOBCI PUSHJ 
002375' MOVE 



(HAVE CONTROL IF DUMP-MODE 
I UNLESS ON A LOOKUP. IN WHICH 
I CASE ALWAYS GET DT CONTROL 
1GFT DT CONTROL 



PDP.FNDBLK (SEARCH FOR RIGHT BLOCK 
TAClrCBLKI DTC.30B3 IFOUNO IT - START READING 



IHERE WITH BLK = BLOCK NUMBER. TAC1 = FUNCT I ON . START SEARCH 



001275' RDWRT: HLLM 



777600 

010000 

002140' 

000014 

100000 



HRLI 

TLNN 

SKIPA 

HRR 

CONS? 



TACl.IOWn 



IBLKI OR BLKO 



TAC-200 

IOS.RWDIR (WRITING (READING) DIRECT? 

TAC8FPNTR INO. INTO BUF 

TACDLOC(DEVOAT) (YES. LOC OF DIRECTORY 

DTC, 100000 | IN REVERSE? 



786 
787 
788 
789 
790 
791 
792 
793 
794 
795 
796 
797 
798 
799 



001255 
001256 
001257 
001260 

001261 
001262 

001263 
001264 
001265 
001266 
001267 
001270 



254000 
370000 
200400 
202400 

603000 
254000 

202040 
200040 
202040 
732202 
732600 
263140 



001271* 
000001 
001275' 
000000 

040000 
001266' 

002145' 

002376' 

001163' 

000000 

770000 

000000 



IOGO: 



I0G02I 



JRST 
SOS 
MOVE 
MOVEM 



IORVRS 
TAC 

TEM.IOWD 
TEM.DTALOC 



IFN CPBIT. < 



TLNE 
JRST 

MOVEM 

MOVE 

MOVEM 

CONO 

CONO 

POPJ 



IOS.NOBUF 
I0G02 



IYES 

lAnoRESS -1 

IGET IOWD 

ISET UP INTERRUPT LOCATION 

I IF DIRECTLY TO USER 
IDTALC2, PNTR ALREADY SET UP 



(POINTER 



ISET UP INTERRUPT LOC*l 



TAC, PNTR 

TAC.CJSR DTATHR] 

TAC0TALC2 

OTC.nTBOTH(TACl) (START READ OR WRITE 

DTS, 770000 (ENABLE FOR ALL INTERRUPTS 

POP, 1 DISMISS INTERRUPT 
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800 

an 

872 

803 

8514 

8 ("5 

376 

377 

808 

379 

810 

311 

812 

813 

814 

815 

816 

817 

818 

81 9 

8?0 

821 

322 

823 



001271 271,40 00? 176 ioPVRsi'A^r IS TAC , 'l76 IV " E ve R SE WH| N BLOCK NUMRER FOUND 

001272 2004-e 002377' 'oVF eh' JSR RVFRS! ' S T " T ° P ° F B " FF ** 

001273 2540^0 0012*0' icct nrn wvtki:l 

JkST !0Go (COMPLICATED STUFF FOR EAC 



OR EACH WORD 



001274 
001275 



000070 

732070 



002000 
002145' 



(HERE FOR ANY DATA IvORn k'JTH TAPF IN REVFRSF 
RVERS: 7 " R s 



IOWD! 



001276 2540T0 001302' 

001277 370000 002145' 

001300 3700(70 002145' 

001301 254520 001274' 



RLKI 



JRST 

SOS 

SOS 

JEN 



DTC,o\TR 



RVTHRU 
PMTR 
n.NlTR 
(SRVERS 



IREAO (WRITE) A WORD 

I MOTE -- THIS LOCATION IS IMPURE, 

I MODIFIED TO A 9LKI OR RIKO, 

(POINTER RAN OUT 

IPOINTFR HAS TO BACK UP 

(DISMISS THE INTERRUPT 



,.„. , « -HERE WHEN POINTER RUNS OUT in oruro^c 

001302 732670 770201 , V THRU, rONO OTS, 777001 "un'tION STOP 

JEN SRVERS (DISMISS 



001303 254520 001274' 



IHERF WHFN P n INTFR o 1 1 hj q nuT rnoiiAoa 
001304 0000.70 0070^0 TTATHHl S ° U r 0PWAM 



001305 7326"0 777001 
701306 254520 0013^4' 



OONO 
JEN 



DTS, 770001 
9DTATHR 



(FUNCTION STOP 
(DISMISS 



OTASRN 



824 
825 
826 
827 
828 
829 
830 
871 
832 
873 
87 4 
875 
836 
837 
83 8 
839 
810 
841 
842 

843 
844 
845 
846 
847 
848 
849 
850 
851 
8^2 
853 
854 
855 
856 
857 
858 
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001307 
001310 
001311 
001312 
7101313 
001314 



001315 
001316 
301317 
1*01322! 
001321 
001322 
001323 
001324 
001325 



101326 
001327 
001330 
001331 
001332 
001333 



001334 
001335 
001336 
001337 
001340 



260140 
242lf>0 
630000 
661002 
201200 
260140 



6030<"0 
254^10 
732600 
263140 
200040 
264000 
732200 
263140 
001326' 



2003110 
135040 
242040 
732221 
2000^6 
254000 



0000(10 
700600 
136040 
700600 
254020 



000742' MTAPfl 

000015 

002400' 

101000 

000000 

001341 ' 



HERE TO PERFORM A REWIND MTAPE FOR DTA 



PUSHJ PDP.GETDT (GET THE CONTROL FOR THE TAPF 

LSH TACl.15 ITAC1=0 FOR REWl 10 FOR REM UNLD 

TD2 IOS.CXWO 10, IOACT] ; SET UP ins 

TLO I0S,REWBIT*RVERSE(TAC1) 

MOVE! RLKt0 ISEARCH FOR RLOCK 

"USHJ PDP.FNDBLK (GO FIND SLOCK 



200000 

001321 ' 

770001 

000000 

001325' 

001334' 

410000 

000300 

000200 



002142' 

000746' 

000011 

23I"200 

000002 

002127' 



000000 
000000 
000000 

000000 

001334' 



(CONTROL COKES HERE ON THE INTERRUPT CHANNEL WHEN THE BLOCK IS 



RUNwn: 



TLNE 


I0S.RUNB1T 


JRST 


,+3 


CONO 


OTS, 770001 


POPJ ' 


PDP, 


MOVE 


TACRUNWD 


JSR 


CLKRFQ 


CONO 


HTC, 410000 


POPJ 


POP, 


vwn 


RUNCLK,200 



FOUND 



(REWIND UNLOAD? 

IYFS, CONTINUE 

I NO, THROUGH WITH TAPE. - FNCTN STlJp 

lOrSMJSS INTERRUPT 

IUSE THE CLOCK TO DESELECT THE TAPE 

JFOR A WHILE - IT WILL GO OFF THE FNO 

(DESELECT THE TAPE SO IT CAN GO OFF 

I01SMISS THE INTERRUPT 



.•COME HERE ON THE CLOCK LEVEL FOR REWIND AND UNLOAD 

RUNCL*: MOVE DEVDAT.USEWRO 

LOO TAC.PUNIT (GIVE CONO TO READ BLOCK NOS IN FORWARD 

LSH TACll (OTRFCTION - THIS WILL CAUSE FULL RIeEL 

CONO DTC,230200(TAC) I TO STOP FLAPPING WHEN CONO STOP IS 'DONE 

"OVE lOS.DEVIOS(DFVDAT) IRFgFT mS 

JRST REWDUN IDECREASF OTREQ, STOP TAPE 



(HERE TO PUT C(TAC) IN THE CLOCK QUEUE 

CLKRFU! 



CONO 


PIiPIOFF 


IDPB 


TAC, CLOCK 


CONO 


PI ,P10N 


JRST 


*CLKREO 



(TURN OFF PI 
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859 
8*0 
861 
862 
863 
864 
865 
866 
867 
868 
669 
870 
871 
372 
873 
874 
875 
876 
877 
878 
879 
880 
881 
882 
883 
8«4 
885 
886 
887 
888 
889 
390 
891 
892 
8 5 3 



001341 
001342 
0013<»3 
001344 
001345 
001346 
001347 
001350 
001351 
001352 
001353 
001354 
001355 
001356 
001357 
001360 
001361 
001362 
001363 
001364 
001365 
001366 

001367 
001370 



552270 
262146 
402000 
135040 
242040 
7323"0 
2540^0 
660040 
603000 
640040 
660040 
2 004 00 
202400 
732201 
732630 
476000 
607000 
607000 
402000 
621000 
202300 
?601<>0 

621000 
556000 



002150' 

000017 

002153' 

001327' 

000011 

027000 

001372' 

230000 

041000 

300000 

001266* 

002401' 

001260' 

000200 

670000 

002155' 

010000 

000020 

002155' 

400004 

002142' 

001133' 

737777 
002162' 



EXTERN 
FXTE9N 

JCOME HERE TO ST 

FND9L*: HRRZ" 
OOP 
SETZ" 

FNDBL^S LOB 
L.SH 
CONS? 
JRST 
TR1 
TLNE 
TRC 

FNDBL3! TRO 
MOVE 
MOVEM 
CONO 
CONO 
SETOM 
TLNN 
TL.NN 
"ETZM 
TL? 
MOVE^ 
PU?HJ 
IFN CPBI 
TL2 
ML»Z M 



001371 263140 000000 



001372 732300 

001373 664040 

001374 660040 

001375 254000 



200000 

200000 
100000 
001353' 



JOB 

HNGSTP 

ART READING 3L0CK 

9LK, BLOCK I 

POP.OISPAD10EVOAT 

FRRCNT 

TACPUNIT ; 

TAC, 11 I 

OTC, 20000 I 

FN0BL4 I 

TAC, 230000 I 

T0S,RVERSE*NOBUF 



POPJ 



TAC, 300000 

TACOTBOTH 

TEM.CJSR SRCH] 

TEM.OTALOC 

DTC,200!TAC> 

DTS, 670000 

IOWRIT 

JOS.RWDIR 

IOS, 10 

IOWRIT 

IOS,RECKON*I"FST 

OEVDAT.USEWRn 

PDPiSTOIOS 

T, < 

IOS.NOBUFC 

IOS.OIRCTN 

PDPi 



NUMBERS 
BLOCK WE'RE LOOKING FOR 
) [WHERF TO GO WHEN RIGHT BLOCK FOUND 

GET UNIT NUMBER 

POSITION IT 

TAPE SELECTFD7 

YES 

NO, SET TO SELECT TAPE FORWARD 

(REVERSE OR DIRECT TO USER? 

YES. SET FOR REVERSE 

Alio PI ASSIGNMENT 

SFT UP PI LOCS FOR SEARCH 

INTO PI INTERRUPTCELL 

START SEARCHING BLOCKS 

ENABLE FOR ALL BUT JOB DONE 

SFT SWITCH HON - IF USING 

MONITOR BUFFER FOR OUTPUT 

SO REKON WONT GIVE CONTROL (AND 

BUFFER! AWAY 

JTURN OFF DEAD-RECKON BIT 



SAVE IOS 

SET WORD NON-ZERO IF NOBUF ON 



FNDBL 4 : 



CONS? 


nTCi 200000 


TROA 


TAC. 200000 


TRO 


TAC, 100000 


JRST 


FNDBL3 



1AND LEAVE 

(DIRECT ION TEST 
(FORWARD 
(REVERSE 
(START SEARCH 



QTASRN 


- NEW FORMAT nECTAPE SER 




T. WACHS/RCC 


TS 04 JIJ 


694 








395 


001376 


000000 


000000 


896 


001377 


202040 


002146' 


897 


001400 


732640 


000001 


898 


001401 


603040 


002000 


809 


001402 


254020 


001450' 


900 


001403 


732040 


000001 


901 


001474 


621040 


777777 


902 


001405 


303040 


001101 


9<*3 


001406 


754000 


001434' 


9514 


001407 


274040 


002150' 


905 








936 


001410 


332000 


002162' 


907 


001411 


254000 


001442 ' 


9 id 8 








939 


001412 


322040 


001614' 


910 


001413 


732300 


100000 


911 


001414 


713000 


000001 


912 


001415 


323040 


001420' 


913 








914 


001416 


732200 


000000 


915 


001417 


254000 


001431' 


91.6 


001420 


217000 


000001 


917 


001471 


303040 


000014 


918 


001472 


254000 


001452' 


919 


001473 


333000 


002152' 


920 








921 


001424 


307040 


000002 


972 


001475 


334000 


000000 


923 


001476 


732600 


670002 


924 


001477 


337040 


002156' 


975 


001430 


264000 


001,334' 


976 


001431 


200040 


002146' 


977 


001432 


402000 


002156' 


978 


001433 


254520 


001376' 



/ICE FOR TD-10 (PDP-10) MACRO, V36 19105 
i 69 V406 

(INTERRUPT HERE TO READ A BLOCK NUMBER 
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SRCHi 



SRCHA! 








MOVEM 


TACTEMP 


CONI 


DTS.TAC 


TL.NE 


TAC2010 


JRST 


SRCHD 


OATA! 


OTCTAC 


TL? 


TAC-1 


CAILE 


TACTOPBLK 


JRST 


SRCHB 


sue 


TAC, BLOCK 


!FN CPR1T, < 


SKIPE 


DIRCTN 


JRST 


SRCHC 


JUMPE 


TAC, FOUND 


CONS? 


DTC, 100000 


MOVNS 


TAC 



SRCHyT ! 



(SAVE WORKING AC 

(GET STATUS PITS 

JIS CONTROL STILL ACTIVE? 

(YES. MUST BE IN "PSEUDO END-20NE" 

INO, READ A RLOCK NUMBER 

(INSURANCE 

ILEGAL BLOCK NUMBER? 

INO. SET ERROR SWITCH 

1N0W-WANTE0 

(MUST BE GOING FORWARD IF DUMP-MODE 
IOIRECTLY TO USER 

1=0 IF WE'RE THERE 
(IF TAPE IS IN REVERSE 
(SWITCH TURN-AROUND TEST 
JUMPLE TAC, ,+3 (TEST FOR DISCONNECT IF DIRECTION IS CORRECT 



ITURN AROUND 
IANO GO AWAY 

IWORTH WHILE TO DISCONNECT TAPE? 

(YES. GO DISCONNECT 

INO. IS THERE A DISCON. TAPE 

(WHICH HAS TIMED OUT? 

(YES. WILL THIS SEARCH TAKE LONG? 

INO 

IYES. STOP DISCONNECTED TAPE 

(READING BLOCK NOS OF AN ALMOST ACTIVE DTA?i 

IYES. GET ITS JOB BACK INTO MEMORY 

(RESTORE TAC 

IAND DISMISS THE INTERRUPT 



CONO 


DTCDTTURN 


JRST 


SRCHXT 


MOVMS 


TAC 


CAILE 


TAC, HINDIS 


JRST 


REKON 


SK1PLE 


DISCON 


CAIG 


TAC, 2 


SKIPA 




CONO 


DTS, 670002 


SKIPE 


TACALMSWT 


JSR 


CLKREO 


MOVE 


TACTEMP 


SET2M 


ALMSWT 


JEN 


«SRC U 
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(HFRE IF AN ILLEGAL, PLOC* WAS READ FROM THE TAPE 



929 








930 


001434 


350040 


002153 


931 


{"01435 


307040 


000000 


932 


5501436 


2540.J0 


001431 


933 


F01437 


4760;'0 


002150 


93 4 


701440 


7326"ti 


770001 


935 


001441 


?54e-!'0 


001431 


936 








93 7 








9 3 8 








939 


101442 


7323i'0 


100000 


940 


001443 


6*5040 


400000 


941 


^01444 


322040 


001614 


942 


5*01445 


3310^0 


000001 


943 


001446 


7322:;0 


001416 


944 


001447 


25405-0 


001431 


945 








946 








94 7 








948 








949 








950 


5<01450 


7322^0 


001446 


951 


001451 


254^70 


001431 



SRChr: 



AOS 


TACERRCNT 


TAIG 


tacottrv 


jkST 


srchxt 


SETO" 


bloc* 


ro>T 


OTS.772,??! 


JRST 


srchxt 



I FM CPR1T, < 



SRfHc: 



^ONS? 



nTC, 105)000 



T LCA TAC,40»05"0 

JL'MPF. TAC, FOUND 

SKIPl TAC 

rONO OTCOTTURN 

JRST SRCHVT 



MUMP ERROR COUNT 

■TRIED ENOUGH? 

INI. REAH ANOTHER BLOCK NUMBER 

iyes. block = -l as an error switch 

(FUNCTION STOP 
(GO AWAY 



(GOING FORWARD? 

INO. SWITCH TURN AROUNO TEST, ENSURE FORWARD 

(GO IF FOUND FORWARD 

(TURN AROUND? 

(YES 

iRFAD ANOTHER BLOCK NUMBER 



(COMF HE C E IF CONTROL IS STILL ACTIVE AFTER READING A BLOCK NUMBER 
(THIS MESNS THAT TAPE IS I* THE "PSEUDO ENO-20ME" - EXTRA FILLERS 
ilNSFNTE" FO^ THF BENEFIT OF THE PDP-9 
SRCHO: CUNO DTC.nTTURN (TURN TAPE AROUND 

JRST SRCHXT (AND EXIT THE INTERRUPT 
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952 








953 








954 








955 








956 








957 


7101452 


3 36 


002155' c 


95B 


001453 


335000 


002152' 


959 


001454 


254000 


001431' 


960 


001455 


202100 


002154' 


961 


001456 


200100 


002147' 


962 


001457 


274100 


000001 


963 


001460 


366100 


001525' 


964 


1 4 6 1 


250300 


002142' 


965 


001462 


205100 


000 00 


966 








967 


001463 


436106 


000002 


96B 


001464 


135100 


000000 


969 


001465 


542100 


002163' 


970 


001466 


506300 


002163* 


971 


001467 


732300 


200000 


972 


001470 


221040 


000062 


973 


001471 


732300 


100000 


974 


001472 


221040 


000050 


975 


001473 


231040 


000000 " 


976 


001474 


303040 


003300 


977 


031475 


201040 


000030 


978 


001476 


205100 


400000 


979 


001477 


4361-6 


000002 


980 


0015013 


200100 


002154 * 


9S1 


001501 


542040 


001533" 


982 


001502 


135040 


001344" 


9R3 


001503 


336000 


000001 


984 


001504 


201040 


00001 


985 


001505 


242040 


000314 


9B6 


001506 


270040 


001533' 


9»7 


001507 


264000 


001334' 


9R8 


001510 


200040 


002150' 


989 


001511 


732340 


200000 


990 


001512 


660040 


200000 


991 


001513 


506046 


000015 


992 


001514 


732200 


410E00 


993 








994 








995 


01515 


2013"0 


000200 


996 


001516 


250300 


002142' 


997 


001517 


333000 


002152' 


998 


001520 


254000 


001530' 


999 


001521 


371000 


000744 ' 


1000 


001522 


476000 


000000 


1001 


001523 


476000 


002152' 


1002 


001524 


254000 


001431" 



COME HERE *U£N A TAPE IS IN A LONG SEARCH 

IF This TAPF WAS MOT USED, THE MONITOR BUFFER (READING), AND 

IF MO OTHFR TAPFS ARE DISCONNECTED, THIS ONE WILL BE, 

AND A CLOCK REQUEST WILL RE ENTERED FOR A* FSTIMATEil TIME TO PLDCK. 



REKOn: 



"SECPT 



S K I P N 

SK1PGE 

JRST 

MOVEM 

MOVE 

SU? 

SOJN 
EXCH 

"ovsi 

ORM 

I..DB 
URRM 

HRLM 

CONS? 

IMULI 

r-ONS? 

IMULI 

I D I V I 

CAILF 

MGVEI 

MOVSI 

I ORm 

«0VE 

HRRm 

LD? 

SKIPN 

«OVET 

LSw 

ADO 

JSR 

"0VE 

O0NS0 

TRO 

HRLM 

roMd 

(BIT 40 

! IT D 

"0»EI 

EXCh 

SKIPLE 

JRST 

<:OSl 

«ETOM 

CETO" 

JRST 



lOWR'T 

DISC^N 

SRCHXT 

TAC1.FNDTMP 

TACl.OISTNC 

TACl, TAC 

TAC1, TRYLTR 

DEVQAT.USEWRn 

TAC1.ALMACT 



(MONITOR BUFFER FULL? 
IANOTHER TAPF DISCONNECTED? 
IYFS, FORGET IT 
(SAVE An AC 



ICHECK SEQUENCE 

(JUMP IF NOT SFQUENTIAL BLOCKS 

INO. DISCONNECT FROM THIS ONE 

ISET TAPE AS ALMOST ACTIVE - SWAPPABLE AnO 

ISHUFFLABLE EVEN THOUGH ACTIVE 

TACl.DEVIOSfnEVDAT) 

TACl.PjOBN lASSOCIATED JOB NUMSER 

TAC1.M0NR2 ISAVF IN WO 2 OF MONITOR BUFFER ' 

DEVDAT,M0NB2 ISAVF ADDRESS OF OTA 



OTC, 

TAC, 

DTC, 

TAC, 

TAC. 

TAC, 

TAC, 

TAC1 

TAC1 

TACl 

TAC, 

TAC, 

TAC 

TAC, 

TAC, 

TAC, 

CLKR 

TAC, 

DTC, 

TAC, 

TAC, 

?TC, 

0000 

OES NO 
DEVD 
^EVn 
DISC 
•;XTI 
tTRE 
DTAV 
OISC 
SRCH 



200000 
62 

100000 

50 

3300 

30 

.RECKON 

•DFVIOS 

.FMDTMP 

TIMREQ 

PUNJT 

10 

14 

TIMREQ 

EQ 

BLOCK 

200000 

200000 

IBLMDE 

410/00 

IS TO P 

T CAUSE 

AT .0 

AT.USEW 

ON 

CK 

- 

AL 
ON 
XT 



(COMPUTE A TIME TO BLOCK 
(BASED ON 50 MSEC/BLOCK FORWARD i 
(AND 40 MSEC/BLOCK IN REVERSE 
(DIVIDE BY N", MILLISECS/TIC 
(IF THF COMPUTED TIME is TOO HIGH 
(LOOK AGAIN IN 1 1/2 SECONDS 
(LIGHT A BIT TO INDICATE THE TAPE IS 
("EVDAT) (DEAD RECKONING 
(RESTORE TACl 
ISET UP A Time REQUEST 
16 BITS OF INFORMATION 
1 UN I T = 8 

I IS THE UNIT NUMSER 

(REQUEST THE MONITOR TO WAKE 

( IN " ! TICKS 

(Save thf block no. 
(and the dirfction 

voat) | in the ddr 

(deselect thf control 
rfvent error flags from coming in later - 
thf deselected tapf to stop though 



Rn (RESET OFVDAT 

(SWITCHING DISCONNECTED TAPES? 
(YES. COME BACK LATER 
INO. COUNT DOWN 0TRE3 

I ONLY 1 RECKON AT A TIME 
IAND EXIT The INTERRUPT 
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1003 
1004 
1005 

1006 

1007 

1008 

1 009 

1010 

1211 

1012 

1013 

1014 

1015 

1016 

1317 

1018 

1019 

1020 

1021 

1022 

1023 

1024 

1025 

1026 

1027 

1028 

1029 

1030 

1031 

1032 

1033 

1034 

1035 

1036 

1037 

1038 

1039 

1040 

1041 



001525 

001526 
001527 



001530 
001531 
001532 

001533 
001534 



202040 
2001C0 
254000 



200040 
264000 
254000 



002147' TRYLTKi 

002154' 

001431' 



MOVE* 

MOVE 

JRST 



TACDISTNC 

TAC1.FMDTMP 

SRCHXT 



(RESTORE TAC1 



001534' 
001334' 

001431' 



•MFRF WHFN SWITCHING DISCONNECTED TAPES 

;too MUCH to do on the interrupt level, so come back on 

N x"cm L ^VE T1CK TAC,TI,R02 .COME BACK I* A JIFFY 

JSR CLKRFQ 

JRST SRCHXT 



001535' 000000 TIMREQ: *WD 
001602' 000001 TIMRQ2! XWD 



BACK.0 
BACKA. 1 



IFN 



ALMACTi< 
iC OME HERE T ON N THE R aOCK LEVEL TO BRING THE JOB ASSOCIATED WITH 
;AN "ALMOST ACTIVE" TAPE BACK INTO CORE 
ALMRFO! XWD .+1.1 

MOVE OEVDAT.USEWRH 

LD n ITEMiPjOBN 

PUSHJ PDP.PRIIN 



IDOB LOC 

IJOB NUMBER 

ITELL SWAPPER TO GET IT 



JFCL 
"OVSI 

4N0CAM 

PQPj 



TAcioEVl'oSlDEVDAT) . *AP BIT SO IT WONT BE SWAPPED OUT AGAIN 
PDP. 



JHFRF WHEN SWAPPER DOES GET THE JOB RACK INTO CORE 



SWP8AK! MOVE 
SETZM 
TLNN 
POPJ 
MOVE 
TRNN 
JRST 
JRST 



,OS OEVIOSfDEVHAT, mqn ^^ 

rSs IOFST .WAS JOB SWAPPED OUT WHEN OATA FINISHED? 
p DP , |NO. TRANSFER COMPLETED 

TAC.JBTSTS(ITEM) .YES, WAS 10 ABORTED? 

TAC "* LR ° RT , N 0. NOW TRANSFER DATA. ADVANCE BJFFF.RS 



FAK1NT 
THRUTP 



IYES. FORGET REST OF OPERATION 



nTASRN 
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1042 
1043 
1044 
1045 
1046 
1047 
1048 
1049 
1050 
1051 
1052 
1053 
1354 
1055 
1056 
1057 
1058 
1059 
1060 

1061 
1062 
1063 
1064 
1065 
1066 
1067 
1068 
1069 
1070 
1071 
1072 
1073 
1074 
1075 
1076 
1077 
1078 



001535 
("01536 
001537 
001540 
001541 
001542 
001543 
001544 
001545 
001546 
001547 
001550 
001551 
001552 
001553 
001554 

001555 
001556 
001557 
001560 
001561 
001562 
001563 
001564 
001565 
001566 
001567 
001570 



332000 
2540550 
3500^0 
402000 
402000 
620040 
242040 
261140 
242040 
270040 
260140 
254200 
202300 
554106 
13717)0 
550040 

505100 
306040 
254000 
554401 
30241.10 
364040 
502l''l 
262140 
660040 
602100 
640040 
200076 



002142' BACK! 

001572' 

001521' 

001522' 

002152' 

000010 BACK2! 

000011 

000001 

000003 

000000' 

000000 

001550' 

002142' 

000015 

002402' 

001336' 

000556 ' 

000000 BACK3S 
001564- 
000000 
001605' 
001556' 
000000 

000001 BACKD: 
270000 
200000 
300000 
000002 

IFM 



EXTERN 
ICOME HERE FROM 
SHAS EXPIRED 



CIPWTM 

THE MONITOR 



■JHEN THE ESTIMATED TIME-TO BLOCK 



SKIPE 

JRST 

AOS 

SETZM 

SET?" 

TRZ 

LSH 

PUSH 

LSH 

ADD 

PUSHJ 

HALT 

MOVE M 

HLR2 

DP9 

HRRZ 

HRLI 

OAU 

JRST 

HLRZ 

CAIE 

SOJA 

HLLM 

POP 

TR(1 

TRNE 

TRC 

MOVE 

ALMACT. 

MOVE 

MOVEM 



I IS CONTROL AVAILABLE? 
INO. SET FLAT, 
IYES. DTREQ WILL BE COUNTED ^OWN LATER 

INO TAPE IS WJW DISCONNECTED 



)UMT 
ISAVE IT 

(CONVERT TO SIXBIT NAME 
ISFT UP OEVDAT FOR IT 

(RESET USEWRO 



USEWRD 
ELAGIT 
HTRET 
DTAVAL 

niscoN 

TAC, 10 
TAC, 11 

POP, TAC 
TAC, 3 

TAC.OTAQOB 
PDP.DEVPHY 

DEVDAT, USEWRD 

TACl, IHLMOEVDAT) iRLOCK NEFDED 

TACl.CPOINT 10, BLOCK, 35] 

TAC, CLOCK 

TACl, CROP J IFIND CLOCK-QUEUE REFERENCE TO BACKC 

TAC, CIPWTM 

PACKD INOT THERE, TAPE MUST HAVE BEEN STOPPED 

TEM,(TAC) IAHDRESS OF CLOCK REOUEST 

TEM, BACKC (THIS THE ONE? 

TAC.BACK3 (NO. KEEP LOOKING 

TACl, (TAC) IYES, MAKE A NO-OP OUT OF IT 

PDP.TAC IUNIT 

TAC, 270000 (SET SELECT, DELAY INHIBIT 

TACl, 200000 ISFT OIRFCTION 

TAC, 300000 IRFVERSE 

IOS,DEVIOS<DFVOAT) iRESTORE I OS 

< IUNTIL REST OF SCHEOR, SWAPPER IS FIXED - IGNORE 

TAC1.ALMREQ INDICATE CONNECTING TO AN ALMOST 

TAC1.ALMSWT t ACTIVE TAPE, SO JOS WILL BE BROUGHT 

(BACK IN IF TAPE CLOSE TO TARGET BLOCK 



001571 254000 001353' 



JRST 



ENDBL3 



IREAO NEXT BLOCK NUMBER 



UTASRN 



1079 

1090 

1381 
10P2 
1383 
1084 
1085 
1086 
1087 
1088 
1089 
1090 
1091 
1092 
1093 
1091 
1005 
1396 
1.097 
1098 
1099 
1100 
1101 
1102 
1103 



- NEW FORMAT DECTAPE SERVICE FOR TO-1.0 (POP-10) MACRO.V36 19105 
T. WACHS/RCC TS 04 JUN 69 V 406 



4-JUN-69 PAGE 45 



001572 
001573 
001574 
001575 
001576 



001605 
001606 
001607 
001610 
001611 
001612 
001613 



I HERE WHEN TIME IS UP ANH ANOTHER TAPE HAS THE CONTROL 



202040 
200040 
264000 
263140 
001605' 



302152' FL4GI T | MOVE« 



001576' 
0013.14' 
000000 
000010 



MOVE 
JSR 

POPj 
XWD 



TACDISC3N 
TAC, ,*3 
CLKRFQ 
PDP. 
RACKC.10 



IOISCON POSITIVE IF NEED THE CONTROL 
ISET A CLOCK REQUEST TO STOP TAPE 

IRETURN, WILL COME IN ON INTERRUPT LEVEL 



;hf.Rf when otaser can give up the control 
001577 7322^0 400000 rackr! romo dtc, 400070 (stop current tape 

001600 260140 001751' pushj pqp.thruta 

001601 634040 300001 td2a tac. tac 



IGIVE IT UP 

ID1SC0N WILL GO TO 



001602 476000 000001 BACKA: SETOM TAC 

001603 250040 002152' EXCH TACDISCON 
001674 254000 001542' JRST BACK2 



JDISCON WILL GO TO -1 
I UNI T TO CONNECT TO 
1 GO RECONNECT 



700620 
732640 
5570?0 
405040 
732601 
700600 
263140 



MF WE GFT HERE THERE IS A SLOW TAPE ON THE SELECTED DRIVE 

001335' RAf-KC! CONO PI.P10FF ;CAMT RIS* CHANGING THE INTERRUPT ENABLES HERE 

000021 rc-NI OTS.TAC IREAD IN ENABLE FLAGS 

000001 HLR£S TAC (FLAGS INTO R,H. 
770000 AND! TAC, 770000 (ONLY ENABLE FLAGS 

000002 CONQ nTS,2(TAC> SSTOP THE DESELECTED TAPE 
001337' CONO PIiPION 

0020550 oqpj POP, IBEFORE RUNNING OFF END OF THE REEL 



DTASRN - NEW FORMAT DECTAPE SERVICE FOR TD-1B (POP-IB) MACRn.V36 19(05 4-JIJN-69 PAGE 46 
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1174 
1105 
11?6 
1107 
11(18 
1109 
1110 
1111 
1112 
1113 
1114 
1115 
1116 
1117 
1118 
1119 
1120 
1121 
1122 

1123 
1124 
1125 
1 126 
1127 
1128 
1129 
1130 
1131 
1132 
1133 
1134 
1135 
1136 
1137 
1138 
1139 
1140 
1141 



FOUND 



{"01614 2021C0 002154' 

001615 202400 001274' 

001616 250300 002142' 

001617 250006 000002 

001620 250140 001631' 

001621 260166 000017 

001622 250140 001631' 

001623 250006 000002 

001624 250300 002142' 

001625 200040 002146' 

001626 200100 002154' 

001627 200400 001274' 
001630 254520 001376' 



001631 777776 001631' FNDPDP: 

001632 000000 000000 



HERE WHEN CORRECT BLOCK NUMBER IS FOUND 



MOVE* 

"OVE" 

FXCH 

FXCH 

FXCH 

PUSHJ 

EXCH 

FXCH 

FXCH 

MOVE 

MOVE 

MOVE 

JEN 

xwn 




TACl.FMDTMO 

TEM.RVERR 

nEVOAT.uSEWRn 

IOS,OEVIOS<DEVOAT) 

PDP.FNOPnp 

POP.SDISPAOCIEVDAT) 

PDP.FNDPDP 

IOS,nEVIOS(OFVDAT) 

TEVDAT.uSEWRn 

TACTEMP 

TACl,F;\IOTMP 

TEM.RVERS 

PSRCH 



ISAVF THOSE ACS THAT WILL RE USER 



JGO TO OISPATCH LOCATION 
RESTORE ACS 



(EXIT THE INTERRUPT 



IFN CPBIT. < 
(HERE WHEN D'JMP-MODE POINTER RUNS OUT 

001633 0000^0 000000 QMPADV! !» 

001634 202040 002146' MOVEM TAC,TE U P 

001635 354040 002161' AOSA TAC.USPNTR 

001636 542040 002161' OMPAVli MRRM T AC , 'JSPMTR 

001637 336060 003201 SKIPM TAC, STAC 

001640 254000 001646' JRST DMPAV3 

001641 270040 002144' ADO TAC.ADRPRG 

001642 327040 001636' JUMPS TACDMPAV1 

001643 202040 002145' MOV£M TAC.ONTR inFW POINTER 

001644 200040 002146' DMPAV2: MOVE TAC, TEMP IRFSTORE TAC 

001645 254520 001633' JEN ODMPADV 



(ADVANCE LOC OF POINTER 

(END OF LIST? 
JYES. STOP TAPE 
(AOD RELOCATION 



001646 732600 770001 OMPAV3: CONO 

001647 254000 001644' jRST 



OTS, 770001 
DMPAV2 



(GIVE FUNCTIHN STOP 

(RESTORE TAC AND EXIT THE INTERRUPT 



OTASRN 



- NEW FORMAT DECTAPE SERVICE TOR TO-10 (PDP-10) "ACR'-,V36 19:05 4-JUN-69 PAGE 47 
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H42 
1143 
1144 
1145 
1146 
1147 
1148 
1149 
1150 
1151 
1152 
1153 
1154 
1 155 
1156 
1157 
1158 
1159 
1160 
1161 
1162 
1163 
1164 
1165 
1166 
1167 
1168 
1169 
1170 
1171 
1172 
1173 
1174 
1175 
1176 
1177 
1178 

1179 

11«0 



0016513 
001651 
5101652 
001653 
001654 
001655 
001656 
001657 
001660 
001661 



f"01662 
001663 
001664 
001665 
001666 
001667 
001673 
"01671 
1*01672 
001673 
001674 
001675 
001676 
001677 
001700 

0017<?1 
001702 
1*01703 
"01704 

001705 
00175'6 
■701707 



732740 
254000 
732700 
335000 
334KP0 
254000 
264000 
2003^0 
2000" 6 
135200 



200344 
6230?0 
254070 
623000 
2540^0 
7327?0 
7327/0 
2540->0 
3350C0 
25 4 0,-0 
603000 
2540"e 
607G"0 
254070 
135040 

202046 
623000 
260140 
623000 

254070 
6030*0 
254000 



770000 

001651 1 

020000 

002150 1 

000000 

002005' 

000000 

002142' 

000002 

001464' 



000000 

100000 

002127' 

000004 

001674' 

100030 

670000 

002077' 

002150' 

002120' 

004000 

002050' 

002000 

001702* 

002372' 

000015 
000001 
000000 

032000 

001744 ' 

000020 

001772' 



; INTERRUPT 

OTAINTj CO 
JR 
CO 
SK 
SK 
JR 
JS 

FAKINTl ''0 
MO 
I.D 

IFN ALMACT 
FU 
JR 

> 

MO 

DTAIM: TL 
JR 
TL 
JR 
CO 
CO 
JR 
SK 
JR 

0TAIN2I TL 



JR 
TL 
JR 
LO 



HERE 
MSO 
ST 
NS? 
IPGE 
TPA 
ST 

q 

VE 
VF 
a 

.< 

ShJ 

ST 

VF. 

2E 

ST 

ZE 

ST 

NS? 

NS? 

ST 

IPGE 

ST 
NE 
ST 
NN 
ST 

g 



"OVEW 
TL?E 
D USHJ 
TL?E 

JRST 
TLME 
JRST 



FOR FLAG CHANNEL 

PITS, 770000 (INTERRUPT FOR DTA? 

, (NO 

ITS, 20000 (END 20NE? 

SLOCK IYES. BAD BLOCK NUMBER? 

!Yf"S 
TURN 1NO. TURN TAPE AROUND 

nTASAV (SAVE ACS 

nEVOAT.USEWRT IRESTORE DEVDAT 
I0S,CEVI03(DFVDAT) SAND IOS 
ITFm.Pjorn |jOB NUM D ER 



PDP.PRI IN 
SwPDLY 

PROGi J3TADR 

IOS.REWBIT 

PEWDUN 

IOS, 10FST 

flTAINZ 

DTS, 100000 

CT5, 670000 

ERRS 

PLHCK 

HERR 

lOS.DMPMOD 

OMPTHR 

IOS.SINGL 

,♦3 

TAC, [POINT 

TAC, IBLKIDE 
IOS, IOW 
PDP.SETIOO 
IOS,SINGL*R 

THRUTP 
!OS,IO 
OUTHRU 



IIS JOB SWAPPED OR SHUFFLED? 
IYES. CANT MPVF BUFFERS NOW 

(ITEM) 'ADDRESS 

JNO, FROM A REWIND MTAPE? 

(YES, DONE 

(COMING FROM SWAP DELAY ROUTINE? 

IYES. TDIE HAS BEEN 2APPED 

IJOB DONE? 

(AND NO ERRORS? 

(NO, TOUGH LUCK 

IBAQ BLOCK NUMBER ON TAPE? 

IYES, TURN ON IOOERR 

(DUMP MODE? 

IYES. GO ELSEWHERE 



10,BUF,27] (GET 1ST BLOCK NO. IF READ 

ICAME FROM LOOKUP 
Vn-AT) ISTORE IN DDB 

INO. IN 10 WAIT? 

(YES. TAKE OUT OF WAIT 
wnlR+puPCLS (DIRECTORY OPERATION TR 
(CLOSING DUMP FILE? 

(YES, LEAVE 

(WRITING? 

(YES 



DTASRN 



1181 
1182 
1183 
1184 
1185 
1186 
1187 
1188 
1189 
1190 
1191 
1192 
1193 
1194 
1195 
1196 
1197 
1198 
1199 

1200 
1201 
1202 
1203 
1204 
1205 
1236 
1207 
1208 
1209 
1210 
1211 
1212 
1213 
1214 



- NEW FORMAT OECTAPE SERVICE FOR TD-10 (PDP-10) MACRO. V36 19:05 
T. WACHS/RCC TS 04 JUN 69 V406 

EXTERN JBTSTS.PjOBM 



4-JUN-69 PAGE 4E 



001710 
001711 
001712 
001713 
001714 
001715 
001716 
001717 
001720 
001721 
001722 
001723 
001724 
001725 
001726 

001727 
001730 
001731 
001732 
001733 
001734 
001735 
001736 



001737 
001740 
001741 
001742 
001743 



561100 
606000 
406100 
201066 
270040 
201101 
251042 
554200 
602000 
354206 
542206 
602000 
254000 
260140 
254000 

333000 
254000 
332000 
303200 
254000 
375000 
337000 
254000 



550046 
3 2 6 4 
621000 
732300 
661000 



000177 

000100 

002164' 

000007 

002403' 

000177 

000000 

002164' 

000100 

000015 

000015 

700000 

001737' 

001011' 

001737' 

002152' 

001577' 

000004 

001101 

001737' 

002151' 

001537' 

001245' 



000016 
001744 ' 
001000 
100000 
001000 



;here on end OF AN input block 



HRROI 

TRNN 

ANDM 

MOVEI 

ADD 

MOVEI 

BLT 

HLRZ 

TRNE 

AOSA 

HRRM 

TRNE 

JRST 

PUSHJ 

JRST 

SKIPLE 

JRST 

SKIPE 

CAILF 

JRST 

SOSGF 

S K I P G 

JRST 



IMASK OUT 1ST-BLK DATA 
(UNLESS IN NON-STD 



THRUINi MRRH 
JUMPN 
TL2 
CONS? 
TLO 



TAC1.177 

IOS.UOSD 

TAC1.BUF 

TAC,PDEVUO<DEVDAT) IWHERE TO STORE BLOCK 

TAC.CXWD BUF.UlFROM BUF TO THERE 

TAC1,177(TAC) 

TAC(TACl) ITRANSFER IT 

RLK.RUF INEXT BLOCK TO READ 

IOS.ijDSD (IF NON-STD 

BLK, IBLKCDEVDATXRFAO SEOUENTIA1. BLOCKS 

RLK, IBLKtDFVTAT) (SAVE IN nop 

IOS.IOOTER+IODERR+IOIMPM 

THRUIN 

PDP.ADVBFF (GET NEXT BUFFER 

THRUIN IEMPTY BUF NOT AVAILABLE 

DISCON ITAPE TIMED OUT? 

PACKS (YES. GO RECONNECT 

BLK (EXIT [F EOF OR BLOCK TOO LARGE 

RLK.TOPBLK ITHE ERROR WILL BE CAUGHT ON THE 

THRUIN IUUO LEVEL NEXT TIME AROUND 

OUAMTM IHAS TAPE HAO CHAN LONG ENOUGH? 

DTREI3 IYES. ANYONE ELSE WANT IT? 

READBC (NO, READ NEXT BLOCK 



TACOBLK(DEvnAT) (TAPE ALSO BEING WRITTEN7 
TAC.THRUTP IYES. OONT CHANGE REVERSF BIT 
IOS.RVERSE (NO. SET JOS BIT TO CORRFCT DIRECTION 
OTC, 100000 
IOS.RVERSE 



OTASRN - mf w FORMAT HECTARE SERVICE FOR Tr-te (PDP-10) 
T. tiACHS/RCC TS 514 JUN 60 V406 
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1215 
1216 
1217 
121B 
1219 
1220 
1221 
1222 
1223 
1224 
1225 
1226 
12 27 
1228 
1229 
12^0 
1231 
1232 
1233 
1234 
1235 
12^6 
1237 
1238 
1239 
1240 
1241 
1242 
1243 
1244 
1245 
1246 
1247 
1248 
1249 
1250 
1251 
1252 
1253 
1254 
1255 
1256 



701 744 
'21745 
701746 
701747 
7 1 7 5 
701751 
001752 
("01753 
701754 



701755 

701756 



001757 



001757 
701760 

701761 
001762 
701763 
701764 
701765 
701766 
701767 
701770 
701771 



333040 
254r/~0 
732270 
371 0T0 
476070 
7322*0 
621000 
4020C0 
25407.0 



325070 
254070 



603170 
334040 

200040 
316270 
2 5 4 7 
7322^0 
6610^0 
200Z4B 
607040 
264„vj 
254,:;'p 



002152' 

001577' 

407300 

001735' 

001540 ' 

017030 

364000 

702142 • 

000070 



001744' 
001234' 



002000 
000000 

000000 
000071 
001663' 

404000 
007074 
002404' 

002000 

001.334' 
701366 ' 



;HERF WHFN TAPT 

ThRUTP: <; K ! p [. E 
jrst" 

THBJTDt SOSl 
^ETO" 

THRUTA: TOMO 
TLH 
SETZ* 
JRST 



IS DONE 
TAC.nlscCN 

» A C i< ; ! 

HTC, 407000 

r-TREO 

"T4VAL 

n t c 1 1. 7 a •' 



ITAPE T I "ED OUT? 
IVES 

jstop tape 
i8ump count down 
mell scheduler 
(oeselect control 



10S,0MPMCD + \">8UE*n l "P0LS + PEWKIT + RUNP.IT 
MSEWRD MNOICATE CONTROL NOW FREE 

CL"ACT IRFSFT PACT AND RETURN 



iCOME HERE IF A TAPE IS MUNG 

HUNGTPi ju u P r ,E TOS, THRUTP iGIVE UP CONTROL IE MOT SEAD-R r CKON I NG 

JRST CPOpjl i IGNORE IT IF DEAD RECKONING - 

iw^EN THE TAPE TIMES OUT FNQTLK l-.ILL RESET THE HUNG TIME, AND 

MF IT is STILL MUNG AT ITS FN? THE ERRrjR MESSAGE WILL OCCUR 

INTERN FTShAP 

EXTERN ShF w aT 
IHERE ON EMO OF BLOCK WHEN THE JP'1 IS STILL SWAPPED OUT 
SCPNTKpL GETS HERE IF S^P OR SHE IS ON I* 1 J3TSTS 
lir, the JOB IS CURRENTLY SWAPPED OR SHUFFLE:) WE MUST DELAY 

JSO TEST JOB NO AGAINST SHF W .\T (IF SHUFFLE) nR FORCE (IF SWAP) TO DETERMINE 
MF JOB IS SEAU_v IN TUAT StsTE, OR IF MONITOR HAS LIT THE BIT 
MM ANTITIPATION OF PUTTING THF JOS IN THAT ^TATE 

swpoly: 



ISWAPPED JOB? 
I YES. 

I MO, SHUFFLED? 

IJOB REALLY swapped or swuffleo? 

INO, F1MS" THIS DATA OPFRATION 
JYES, STiP TAPE (WE MUST DELAY) 
MNDICATE JOP WAS DELAYED (FOR FAKlNT) 



IFN FTSWAP, < 


EXTERN 


FORCE 


TLNE 


TAC1.SNP 


SK IPA 


TAC, FORCE 


MOVE 


TACSHFUAT 


CA M N 


ITEM.TAC 


JRST 


DTAIM 


"ONO 


| -,TC,407,O'"2 


TL7 


IOS, IOFST 


"OVE 


t aC,[XwQ F 


T|_igy 


T AC,SWP 


JSR 


CLKRFO 


J R c T 


sTons 



.13 ME JOB IS CURRENTL V REING SHUFFlFD 

iCPME RAFK OM NEXT CLO"K INTERRUPT, AT » I.- 1 C H TIME 

ITHE BLT MUST HAVE FINISHED 
!AND GO AwAy 



DTASRN 



■ NEW FORMAT HECTARE SERVICE FOR TD-10 (PDP-10) «ACRi,V36 19:05 4-JUN-69 PAGE 5 pi 
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1257 
1258 
1259 
1260 
1261 
1262 
1263 
1264 
1265 
1266 
1267 
1268 
1269 
1270 
1271 
1272 
1273 
1274 
1275 

1276 
1277 
1278 
1279 
1280 
12S1 
12S2 
12B3 



1772 
1773 
1774 
1775 
1776 
1777 
2000 
2001 
2002 
2003 
2004 



002005 
002006 
702007 
002010 



002011 
002012 
002013 
("02014 



260140 
254000 
333030 
254000 
550206 
3032,10 
2540C0 
375030 
337000 
254000 
254000 



732300 
?540!'0 
732200 
254520 



2640?0 
200300 
200006 
254000 



IHERF ON END OF OUTPUT BLOCK 

001127' OUTHRU: PUSHJ POPiAOVBFE IGET NEXT BUFFER 

001744' JRST THRUTP INOT FULL 

002152' SK1PLE DISCON 

001577' JRST RACKR 

000016 HRR2 RLK.OBLKIOEVTAT) ;N£XT BLOCK TO WRITE 

001101 CAILE RLK.TOPBLK ILEGAL? 

001744' JRST THRUTP t NO . CATCH ERROR ON UUO LEVEL 

002151' ?OSGF OUANTM IYES. HAD CHAN LONG ENOUGH? 

001747' 5KIPG OTRE1 I AND SOMEONE ELSE WANT IT? 

001056' JRST FILRUF I NO . GO WRITE NEXT BLOCK 

001744' JRST THRUTP IYES. GIVE UP TAPE 

(TURN TAPE AROUNjn AFTER ENO-?0ME INTERRUPT 
003500 TURN! TONS? PTC, 501 (READING BLOCK NUMBERS? 

002011' JRST nIREOF (NO. END ZONE WHILE READING DATA 

001450' COMf) nTC.OTTURN IYES. TURN AROUND 

002330 JEN CDTACHL (DISMISS INTERRUPT 

(COME HERE ON AN END ZONE INTERRUPT WHILE READING DATA 
(THIS c*"; ONLY HAPPEN IN MODF 116,117 
(LIGHT IODEND (IT IS A PREMATURE EOF) AND LEAVE 
001656' DIREOF: JSR DTASAV (SAVE ACS 

002142' MOVE DEVDAT.USEWRn (RESTORE DEVOAT 

000002 MOVE IOS.DEVinstDFVDAT) (AND IDS 

002073' JRST TMPEOF (LIGHT IODENn ANO RETURN 
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1284 
1285 
1286 
12B7 
1288 
12B9 
1290 
1291 
1292 
1293 
1294 
1295 
1296 
1297 
1298 
1209 
1330 
13511 
1302 
1303 
13*4 
135"5 
1306 
13H7 
1378 
1309 
1313 
1311 
1.312 
1313 
1314 
1315 
1316 
1317 
1318 
1319 
1320 
1321 
1322 
1323 
1324 
1325 
13P6 
1327 
1328 
1329 
1330 
1331 
1332 
1333 
1334 
1335 



!»02015 333000 

5502016 7326510 

002017 6030i*0 

002020 2540C.0 



002022 6070»0 

002023 254000 

002024 550206 

002025 322210 



002326 
002027 



002030 
002031 



002032 
002033 

002034 
002035 
002036 



3072J0 
263140 



660000 
262140 



402036 
402006 
623000 
260140 
254030 



002152 1 

000202 

040000 
002042- 



iCOME HEPE ON END OF DUMP MODE BLOCK 



SVOMTH: 



002021 205100 777601 



000021 
000020 

000001 

001703' 
001744' 



SKIPLE niSCON 
CONO PITS, 2 
IFN CPBIT, < 



IHAS A TAPE TIMEO 
IYES. STOP IT 



OUT 



003020 
002037' 
00001 6 
002031' 



001101 
000000 

040000 
000001 



nMPTHA ! 



TLNE 
JRST 

MOVSI 
IFE 

TRN'E 
SUB 

TLNN 

JRST 

MRRZ 

JUMPF 

IFE 

TRNE 

AOSA 

CAIG 

POPJ 

TRO 
POP 



IOS.NOBUF 
USOMTH 

TAC1.-177 
CPBIT, < 
1 OS , LJDSD 
TACl.ONEONE 

I OS, 10 

SVOMIN 

BLK.OBLMQEVTAT) 

RLK.OMPTHA 

CPBIT. < 

ICS.UDSD 

OBLKtOEVDAT) 

BLK.TOPBLK 
POP, 

I OS, IOBKTU 
PQP.TAC 



IOIRECTLY TO 
IYES, ALMOST 



USER? 
THROUGH 



ISET UP TAC1 WITH COUNT 



I INPUT FILE 

jOUTPUT FILE, 
ILAST BLOCK 



NEXT BLOCK 



I IF NON-STD MODE 

IWRITE CONSECUTIVE BLOCKS 



INOT 
IYES, 



LAST. LEGAL 
RETURN 



BLOCK NUMBER? 



0MPTH2! SETZM 
SET2M 

DMPTH3: TL?E 
PUSHJ 
JRST 



SVnwRDtOEVDAT) 
OMPlST(OEVDAT) 
I OS, IOW 
PDP.SETIOO 
THRUTP 



IBLOCK TOO LARGE 

(REMOVE THE RETURN ADDRESS FROM 

•CALL TO SVQMTH, SINCE 

JNO MORE I/O WILL BE DOME 

(ZERO DUMP-MODE STUFF 



I IN 10 WAIT? 
IYES, RESTART 



JOS 



002037 554200 002164' SVDMINI hlRZ 

IFF 

TRNE 

AOSA 

> 

102040 542276 000015 HRRM 

002041 254000 001756' JRST 



iHERE ON END OF SAVE MODE INPUT PlOCK 



BLK.PUF 1 NEXT BLOCK NUMBER 

CPBIT, < 

IOS.UDSC INON-STANDARD? 

RLK, IBLK(DEVPAT) j YES, READ CONSECUTIVE BLOCKS 

BLK, IBLK(DEVDAT) ;SAVE IN ODB 
CPOPjl 



IFN CPBIT, < 
iHERE WHFN THROUGH DUMP-MODE DIRECTLY To USER 

002042 201106 000015 USOMTH! MOVEI TAC1 , I BLK ( DEVOAT ) 

002043 603000 000020 TLNE IDS, 10 

002044 201106 000016 MOVEI TAC1,0RLK(TEVDAT) ISET TAC1 TO RIGHT BLOCK NUMBER 

002045 200040 002157' MOVE TACBLKCNT IUPQATE BLOCK COUNTER 

002046 272042 000000 ADDM TAC(TACl) 

002047 2540S10 002031' JRST OMPTHA I THROUGH 
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1336 
1337 
1338 
1339 
1340 
1341 
1342 
1343 
1344 
1345 
1346 
1347 
1348 
1349 
1350 
1351 
1352 
1353 
1354 

1355 
1356 
1357 
1358 
1359 
1360 
1361 
1362 
1363 
1364 
1365 



002050 



002051 



002052 
002053 
002054 
002055 
002056 
002057 
002060 
002061 
002062 

002063 
002064 

002065 
002066 
002067 
002070 
002071 
002072 



002073 
002074 



260140 
254000 



332046 
254090 
260140 
2540B0 
200402 
202401 
252100 
253040 
254000 

253040 
260140 

254000 
202046 
322200 
307200 
254000 
664000 



660000 
254000 



JHERF WHFN THROUGH DUMP MODE BLOCK 

002015' OMPTHKi PUSHJ PDP.SVDMTH (END OF PLOCK HOUSEKEEPING 

I RETURN ONLY IF MORE I/O 
! WILL BE OOK'E 

001240' JRST OMPFLC I FILL BUFFER FOR NEXT OUTPUT 



000021 

002056' 

001224' 

002032' 

002165' 

000000 

002063' 

002056' 

002054' 

002066' 
001224' 

002032' 

000021 

002073' 

001101 

001245' 

040000 



(HERE WHFN THROUGH READING A DUMP-MODE BLOCK 

DM IFIL I SKIPE TAC,SVOWRD<OFVOAT) (PARTIAL COMMAND? 



JRST 
OMIF|_A! PUSHJ 
JRST 



OMIFLB! 



MOVE 
MOVEM 

aobjp 

40BJN 
JRST 



DMIFLB (YES. CONTINUE 

PDP.NXTCOM (NO. GET NF.XT COMMAND 

DMPTH2 (END OF LIST - THROUGH 

TEM.3UF + KTAC1) (NEXT DATA WORD 



TEM, (TAC) 
TAC1..+3 
TAC, DMIFLB 
DMIFLA 



AOBJN TAC. + 3 
PUSHJ PDP.NXTCOM 



(GIVE TO USER 
IIF RUFFER IS FULL 
1GFT NFXT WORD 
IGFT NFXT COMMAND 

(BUFFER ID FULL. IS COUNT EXACTLY 1777 
(THAT COM, IS DONE. GET NEXT 



RDNXT1 



JRST DMPTH2 | END OF LIST - THROUGH 

MOVEM TAC.SVDWRDCDEVDAT) (SAVE PARTIAL COMMAND FOR NEXT TIME 

JUMPE HLK.DMPEOF (IF EOF - LIGHT BIT 

CAIG nLK.TOPBLK (BLOCK LFG4L7 

JRST READ9C (KO READ BLOCK NUMBER 

TROA lOS.rOBKTL ILIGHT ERROR BIT 



(EOF BEFORE ALL DATA IS IN - DUMP MODE 
020000 DMPEOF( TRO IOS.IOOEND ILIGHT EOF BIT 
"021232' JRST DMPTH2 (GIVE UP TAPE 



DTASRN 



1366 

1367 

1363 

1369 

1370 

1371 

1372 

1373 

1374 

1375 

1376 

1377 

1378 

1379 

1380 

13P1 

13B2 

1383 

1384 

13B5 

1386 

3397 

1388 

1389 

1390 

1391 

1392 

1393 

1394 

13 95 
1396 
1397 
1398 
1399 

14 010 
1471 
14 32 
14!>3 
14 7 4 
1405 
14C»6 
14*7 
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0102275 
002076 



260140 
254(5 :'a 



002032' 

000000 



002077 350040 002153' FRRS 



002100 
002101 
002102 
002103 
002104 
002105 
002106 

002107 
002110 
002111 
002112 



002113 
002114 
002115 
002116 
"02117 
002120 
002121 
002122 
002123 
002124 
002.125 
002126 
002127 
002130 
002131 
002132 
002133 
002134 
002135 
002136 
002137 



607000 
2540 30 
200100 
202100 
200102 
270100 
202100 



040000 

002107' 

002160' 

002161' 

000000 

002144" 

002145' 



SVAOFHI PUSMJ PD p »TMPTM2 
JRST 4DREP" 

;COME HERE ON ERROR 

"OS TAC.FRRCNT 
IFN CPRIT, < 



732740 040000 

303040 001435' 

254000 002113' 

254000 001344' 



331000 
'32730 
660000 
732740 
732770 
660000 
732700 
660000 
6030{ , 
254000 
607000 
254070 
623000 
260140 
627000 
254000 
260140 
205040 
412046 
135200 
254000 



002150' 

400000 

100000 

200010 

200000 

040000 

400000 

004000 

002050' 

012020 

001674' 

000001 

002035' 

012000 

001744 ' 

001744 • 

400000 

000004 

001661 ' 

000000 



> 
ERRSi: 



jperman 

PERMrK 



OERH : 



REanuNi 



RDQIRi 



TLMN 

JRST 

MOVE 

HCVE'- 1 

".OVF 

ADD 

"OVE" 

conso 
:ailE 
JRST 
JRST 

E^'T ERROR 
SKIRL 
CONS? 
TRO 
r OMSO 
CONS? 
TRO 
CONSZ 
TRO 
TINE 
JRST 
TLNM 
JRST 
TL2E 
PUSHJ 
TL?,M 
JRST 
d UShj 
MOVSI 
ANOCAM 
I. DP 
JRST 



!0S,N09UP 

FRRS1 

TACl,S«PNTR 

TACl.USPNTR 

TAC1 , ( TAC1) 

TACl.AORPRG 

TAC1.PMTR 

nTS, 40000 
TACDTTRY 
PERMER 
FN08U2 



IGIVE UP CONTROL 
iTVPF ERROR "ESSAGE 

IBUMP CO'JNT 

! I/O DIRECT TO USER? 

I MO 

IYFS, RESET POINTERS 

IRESET PNTR 



ME ILLEGAL OP - OONT RETRY 
i ENOUGH REREAOS? 
IYFS. PERMANENT ERROR 
I NO. TRY AGAIN 



! IF RAD RLOCK » LIGHT IOHTER 



iPARITY 



(missed data 

(illegal op 
jdump mode? 
iyes. not through yet 



9L0CK 

ITS, 4000CT0 

IOS, IOTTER 
nTS, 10"i00 

nTS, 200000 

IOS, IODERR 

PITS i 40000 

IOS, IOIMPM 

IOS.TMPMOD 

DMPTUR 

IOS, IO+RMDIR+SINGL 

TTAIM2 

ios, row 

PDP,SETIOD (MO. TAKE OUT OF 10 WAIT 
IOS.RWnjp+siMGL ;OIRECTQPY OPERATION? 
THR UTP ino, RETURN TO USER 

PDP.THRLTP iYES, STOP TAPF 
TAC.nvmRiM ICLEAR DIRECTORY IN TORE BIT 
TACOEVMflQfDFVnAT ) 

ITEM.PJQRM 1NUMBER "F OFFFNOING JOS 
«AnDlR : GO PRINT ERROR '1ESSAGE 
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1408 










INTERN 


HTABUF 


1479 


002140 


7 7 7 6 " 


002164* 


BFPNTR: 


IOWO 


200.RUF+1 


1410 


002141 


000001 


000001 


ONEONE: 


XWO 


1.1 


1411 


002142 


000000 


000000 


USFWRDl 


i? 




1412 


002143 


000000 


000000 


USFPRG: 


r> 




1413 


002144 


000000 


000000 


ADRPRGl 







1414 


002145 


000000 


000000 


PNTRs 







1415 


002146 


000000 


000000 


TEMP: 







1416 


002147 


000000 


000000 


DISTNC: 


f* 




1417 


002150 


000000 


000000 


BLOCK! 







1418 


002151 


000000 


000000 


OUANTM i 


t7 




1419 


002152 


000000 


000000 


PISCON: 







1420 


002153 


000000 


000000 


ERRCNT: 







1421 


002154 


000000 


000000 


FMDTMP: 


2 




1422 


002155 


000000 


000000 


10WH.IT : 







1423 


002156 


000000 


000000 


ALMSWT I 







1424 










r FN CPPIT, < 


1425 


002157 


000000 


0000H0 


BLKCNT: 







1426 


002160 


000030 


000000 


SVPMTR: 


■? 




1427 


002161 


000000 


00 000 


USPNTk: 


n 




1428 


002162 


000000 


000000 


IRCTN: 


r> 




1429 








> 






1430 








STH1S IS THE MONITOR BUFFi 


1431 


002163 






QTABUF: 






1432 








I FN ALMACT,< 




1433 










xwo 


SWPBAK.0 


1434 








> 






1435 


002163 


000000 


000000 


M0NB2! 







1436 


002164 






9UF: 


SLOCK 


200 


1437 


002364 






DTAEND! 


END 




1438 


002364 


777777 


777601 








1439 


002365 


777752 


000123 








1440 


002366 


050000 


000000 








1441 


002367 


000026 


000026 








1442 


002370 


000040 


020000 








1443 


002371 


000001 


002164' 








1444 


002372 


101200 


002164' 








1445 


002373 


732100 


000700 








1446 


002374 


264000 


001633' 








1447 


002375 


732000 


000300 








1448 


002376 


264000 


001304' 








1449 


002377 


264000 


001274' 








145 


002400 


000020 


010000 








1451 


002401 


264000 


001376' 








1452 


002402 


001210 


002150' 








1453 


002403 


002164' 


000001 








1454 


002404 


001657' 


000001 









IRH WILL BF LINK TO NEXT MONITOR BUFFER 



NO ERRORS DETECTED 
PROGRAM BREAK IS 002405 



DTA3RN 
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SYMBOL TABLE 



AC1 


(5120015 


INT 


ADRERR 


002076 


EXT 


ADVRFF 


5)01775 


EXT 


BACK 


001535 




3ACKA 


001602 




RACK^ 


001564 




RFPNTR 


002140 




BLKC^T 


002157 




RLKSRC 


000424 




CALNXT 


0006.12 




CLKRFQ 


001334 




CLSD"P 


000725 




CPPIT 777777 777777 




OAT 


0000'?5 


INT 


DEVDAT 


000036 


INT 


DEVI AD 


000007 


I NT 


OEVOAD 


000010 


I NT 


OIRCHK 


000410 




DISCON 


002152 




DLETF 


000473 




DM I FLA 


002054 




DMPAVl 


001636 




DMPCLS 


020000 




OMPFLA 


001200 




DMPI 


000766 




ITMPO 


001035 




OMPOVR 


001215 




DMPTM2 


002032 




DMPTHR 


002050 




OSERt 


000367 




HTACHL 


002010 


EXT 


OTAQTR 


000022 




TTAI-'l 


001663 




n T A I M T 


001650 


INT 


n T A S A V 


002011 


EXT 


OTAVAL 


001 750 


EXT 


TTOCUK 


001056 




DTTRV 


002110 


EXT 


DVDIRI 


4 0.-0 


INT 


FNTR» 


70051 5 




FOF 


001020 




FRRS'l 


fJ021i'7 




FIL3UF 


001056 




FNnqi. 3 


'01353 




F NHPOP 


001611 




FOSIN"! 


00161 4 




"TTCL 777777 777777 




FT»C10 777777 777777 




GETQT0 


000740 




HMGSTP 


000764 


EXT 


IBL< 


000015 




IORKTL 


040010 


INT 


IOOTFR 


100000 


INT 



TO-10 
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AC2 


000016 


INT 


AORPRG 


002144 ' 




ALMACT 


000000 




BACK2 


001542' 




RACKB 


001577' 




RADOIR 


002137' 


EXT 


RLK 


000004 




PLKSRA 


000427' 




BLOCK 


002150' 




CHNGOR 


000400 




CLOCK 


001554' 


EXT 


COMCHK 


001136' 


FXT 


CPOPJ 


001555* 


EXT 


OECPTR 


000464' 




nEVEXT 


000012 


INT 


oevios 


000002 


INT 


PEVPHY 


001547' 


FXT 


OIRCTN 


002162' 




OISPAD 


000017 




OLOC 


000014 




OMIFL8 


002056' 




nMPAV2 


001644' 




DMPEOF 


002073' 




DMPFLB 


001176' 




tlMPLST 


000020 




OMPOTH 


001205' 




DMPSET 


001134' 




0MPTH3 


002034' 




DMPTS1 


001147' 




DSERCH 


000365' 




DTADOB 


000000 ' 


INT 


TTAOSP 


000224' 


INT 


OTAIN2 


001674' 




0TALC2 


001265' 


EXT 


OTASRN 


000000 ' 


INT 


nTPOTH 


001353' 


FXT 


OTREO 


002002' 


FXT 


OTTURN 


002007' 


FXT 


ENTR 


000501 ' 




FNTRC 


000535* 




FRRCNT 


0021=3' 




FAKAOV 


001125' 




FLAGIT 


001572' 




FNDBL4 


001372' 




FNimP 


002154 ' 




FREXIT 


000447 ' 




FTDISK 


777777 777777 




FTSW»P 


777777 777777 


INT 


GETQT1 


000744 ' 




MUNGST 


000001 


INT 


10 


000020 


INT 


IODEND 


020000 


INT 


IOENC 


000040 


!NT 
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AC3 


000017 


INT 


AOVBFE 


001772' 


r-XT 


ALMS^T 


002156' 




BACK3 


001556' 




RACKC 


001605' 




BDDIR 


002136' 




RLKCHK 


001014' 




RLKSRB 


4 3 2' 




RUF 


002164' 




CIPWTM 


001556' 


rXT 


CLRACT 


001754' 


rXT 


C0R2HM 


001115' 




CP0PJ1 


002041' 


FXT 


□ ERR 


002:120* 




OEVFIL 


000011 


INT 


OEVMOD 


000004 


INT 


OIRBLK 


000144 




01RE0F 


002011' 




OISTNC 


002147' 




DMIFIL 


002052' 




DMPAOV 


001633' 




DMPAV3 


001646' 




DMPFIL 


001175' 




DMPFLC 


001240' 




□MPMOD 


004000 




DMPOVA 


001221' 




0MPST2 


001144' 




DMPTHA 


002031' 




DRPTR 


000552' 




OTABUF 


002163' 


T NT 


DTADDS 


000222 


INT 


DTAEND 


002364' 




DTAINI 


00024 7 ' 


INT 


DTALOC 


001355' 


rXT 


[UATHR 


0013*4' 




DTC 


000320 




OTS 


000324 




OTWAIT 


000745" 


FXT 


ENTR2 


000505' 




ENTRO 


000577' 




ERRS 


2 7 7' 




FAKINT 


001657' 




FNDBL2 


001344' 




FNOBLK 


001341' 




FORCE 


001760' 


FXT 


FSTBLK 


000013 




FTLOGI 777777 777777 




GETOT 


000742' 




GETF 


000611' 




HUNGTP 


001755' 




IOACT 


010000 


TNT 


IOOERR 


200000 


INT 


IOFST 


000004 


TNT 



DTASRN 
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IQGO 


001260' 




IORVRS 


001271' 




IOWD 


001275' 




JBTAOR 


001662* 


EXT 


JOB 


0000550 


EXT 


JORSAV 


00007.0 


EXT 


LOOKC 


000316' 




LSTBLK 


001113' 




MARKDR 


000545' 




MSFCPT 


001473' 




MEWEMT 


000562' 




NOPLK0 


001172' 




NORUFC 


737777 




NXTCM2 


001235' 




NXTICK 


001530' 




OUCOMP 


001073' 




CUTBL2 


001106' 




POP 


000003 


INT 


PiriMOO 


000674' 


EXT 


PNTR 


002145' 




DUANT 


000003 




(3UEST 


000763' 




ROWRT 


001247' 




RECKON: 


400000 




R E M A » 


000324' 




RENER1 


000357' 




REWOUN 


002127' 




RUM WD 


001325' 




RVTHRU 


001302' 




SETACT 


000762' 


EXT 


SETO 


000605' 




SHFWAT 


001761' 


EXT 


SRCH 


001376' 




SRCHC 


001442' 




STOIOS 


001771' 


EXT 


STREO 


0000Z0 


EXT 


SVOMTH 


002015' 




SWP 


002000 


INT 


TAC1 


000002 


INT 


THRUIN 


001737' 




THRUTP 


001744' 




TIMROZ 


001534* 




TOUSR1 


001156' 




TRYLTR 


001525' 




UCLS 


000671' 




UOUT 


001042' 




UREL2 


000730' 




USEWRD 


002142* 




USRDOT 


001033* 


EXT 


USRLST 


000641' 




VOTASX 


000406 


INT 


WSYNC 


000741' 


EXT 



I0G02 


001266' 




IOS 


000000 


INT 


IOWRIT 


002155' 




JBTSTS 


000000 


EXT 


JOBDOT 


001024' 


FXT 


LOOK 


000256' 




LOOKD 


000310' 




LSTFRE 


000451 ' 




MINOIS 


000014 




MTAP0 


001307' 




NMFOUN 


000401 ' 




NORLKS 


000646' 




NOLINK 


000200 




NXTGOM 


001224* 




OBLK 


000016 




OUFULL 


001064' 




OUTBLK 


001075' 




PERMER 


0211.3' 




PION 


001612' 


EXT 


PROG 


000007 


INT 


OUANTL 


000732' 




RDBLUK 


001244' 




REAOPC 


001245' 




REKO M 


001452' 




R E N A M 1 


000341' 




PENER2 


000361' 




RUNBIT 


200000 




RVERS 


001274' 




pwniR 


010000 




SETI 


000603 ' 




SETPTR 


000435' 




SINGL 


002000 




SRCHA 


001413' 




SRCHD 


001450' 




STOTAC 


000617' 


EXT 


SVAOER 


002075' 




SVDWRD 


000021 




SWPDLY 


001757' 




TEM 


00001 


INT 


THRUTA 


001751' 




THSDAT 


000511' 


FXT 


TOPBLK 


001101 




TPOPJ 


000373' 


FXT 


TURN 


002005' 




UDSD 


000100 




II0UT2 


001054' 




USOMTH 


1*02042' 




USLSTA 


000644' 




USRFRA 


000624' 




IITPCLR 


000650* 




WAIT1 


000727' 


EXT 


?ERCOR 


001024' 





IOIMPM 


400000 


INT 


IOW 


000001 


INT 


ITEM 


000004 


INT 


JIFSEC 


000252' 


rXT 


JOBPni 


000000 


rXT 


LOOKA 


000265' 




LOOKE 


0003,12' 




LSTSAV 


020300 




MONB2 


002163' 




NAMSTR 


0003,23 




NMLOOK 


000372' 




NOBUF 


040000 




NXTCM1 


001227' 




NXTFRE 


000442' 




ONEONE 


002J41' 




OUT 


000704' 


FXT 


OUTHRU 


001772' 




PIOFF 


001605' 


FXT 


PJOBN 


002136' 


FXT 


PUNIT 


001502' 


FXT 


TUANTM 


002151' 




RONXT 


002070' 




READBF 


001J43' 




RELEA9 


000000 

000J44 ' 


FXT 


RENAM2 




REWBIT 


100(100 




RUNCLK 


001J26' 




RVERSE 


001000 




SD 


000815 


INT 


SETIOD 


002130* 


FXT 


SETW04 


000J67' 




SPACE 


000004 




SRCHR 


021434 ' 




SRCHXT 


0Z1431' 




STOW04 


O0030Z ' 




SVOMIN 


002037' 




SVPNTR 


002160' 




TAC 


000001 


INT 


TEMP 


002146' 




THRUTD 


001747' 




TIMREQ 


001533* 




TOUSFR 


001151' 




TPOPJ1 


000000 


rXT 


UADCK1 


000366' 


FXT 


UIN 


000772* 




UREL 


000712' 




USEPRG 


002143' 




USPNTR 


002161' 




USRFRE 


000620' 




UUO 


000B14 


TNT 


WRTBLK 


001110' 





A 


6* 


6 


























AC1 


6* 


() 


140 


162 


210 




















AC? 


6# 


ft 


537 


591 


684 




















AC3 


6* 


314 


328 
























AQ"EBR 


23 


1369 


























ADRP3G 


695> 


1131 


1378 


1413* 






















A0V8FF. 


Pi 


658 


1258 
























AQVBFF 


23 


562 


1198 
























AEFERR 


6* 


6 


























4L 


6* 


6 


























AL.MACT 


15 


965 


1018 


1073 


1153 


1432 


















AL^SWT 


924 


927 


1423* 
























ASSCON 


6* 


6 


























4SSPRG 


b» 


6 


























R 


6* 


6 


























PACK 


1014 


1045* 


























RACK2 


1050* 


1P°3 


























PACK3 


1062* 


1066 


























RATKA 


1015 


1091* 


























RACKS 


10370 


1231 


1217 


1261 






















PACKC 


1065 


1084 


1097* 
























P.ACK3 


1063 


1068* 


























"ADQIR 


23 


14C7 


























PQDIR 


159 


1406* 


























HFPNTR 


7*3 


1409* 


























TLK 


32* 


155 


157 


165 


167 


168 


235 


247 


253 


254 


258 


260 


261 


269 
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409 



1418* 



1359 



828 1158 
1399* 



1222 



818 
418 



1222 



1106 
828 



1116 
870 



1212 



1214 



swdip 


64* 


238 


493 


782 


678 


1176 


13"7 


1401 














SD 


6* 


6 


426 
























SETACT 


21 


574 


524 
























SETI 


136 


383* 


























SETITD 


22 


1175 


1314 


14fl0 






















SETO 


105 


38 7* 


























SETPTR 


258* 


266 


277 
























SETwn4 


316 


369* 


























SHr 


6* 


6 


























SHFtJAT 


1234 


1248 


























SHPSeG 


6* 


6 


























SIWGL 


62* 


154 


1169 


1176 


1397 


1471 


















SLTVCL 


6* 


6 


























SLICE 


6* 


6 


























SNA 


6* 


6 


























SPACE 


42* 


4'/ 4 


























SPYSFG 


6* 


6 


























SRCH 


873 


895* 


928 


1117 






















SRCHA 


910* 




























SRCHR 


903 


930* 


























SRCHT 


977 


939* 


























SRCHO 


B99 


950* 


























SRCHXT 


915 


9?6# 


932 


935 


944 


951 


9 = 9 


1002 


1005 


1012 










STQIOS 


21 


188 


348 


390 


415 


448 


452 


571 


547 


574 


637 


662 


883 


12is6 


STOPIO 


6* 


6 


























STOTAC 


21 


470 


























STnwnt 


144 


150* 


























STREO 


24 




























STTYR1 


6* 


6 


























STTY3F 


6* 


6 


























SVADER 


667 


1368* 


























SVDMIN 


1297 


1318* 


























SVDMTH 


1285* 


1337 


























SVDWRO 


52* 


738 


759 


764 


1311 


1343 


1356 
















SVPNTR 


690 


1375 


1426* 
























SWP 


6* 


6 


1245 


1254 






















swpclR 


6* 


6 


























SWPDLY 


1241* 




























SYSDFV 


6* 


6 


























TAC 


6* 


6 


122 


123 


124 


125 


133 


136 


137 


139 


140 


169 


170 


180 




1B1 


183 


194 


191 


195 


196 


198 


199 


200 


204 


205 


207 


213 


214 




219 


221 


224 


227 


250 


267 


274 


281 


313 


319 


320 


321 


323 


325 




339 


340 


345 


34b 


361 


362 


3*4 


375 


378 


399 


434 


435 


437 


438 




439 


440 


441 


443 


445 


447 


453 


454 


456 


457 


459 


475 


477 


489 




492 


bll 


512 


513 


518 


520 


5^8 


560 


561 


568 


579 


590 


581 


584 




585 


613 


614 


615 


648 


649 


6^0 


651 


652 


668 


678 


691 


692 


693 




694 


6"9 


774 


715 


718 


735 


737 


738 


739 


743 


750 


751 


752 


753 




754 


755 


756 


764 


781 


7«3 


7«4 


787 


794 


795 


796 


801 


838 


846 




847 


848 


856 


365 


866 


869 


871 


872 


875 


891 


892 


896 


897 


898 




900 


971 


922 


9I?4 


979 


911 


912 


916 


917 


921 


924 


926 


930 


931 




94a 


941 


942 


962 


972 


974 


975 


976 


977 


961 


962 


983 


984 


985 




986 


988 


990 


991 


1003 


1010 


10 = 


1051 


1052 


1053 


1054 


1060 


1062 


1064 




1066 


1067 


1068 


1069 


1071 


1080 


1081 


1089 


1091 


1092 


1098 


1099 


1100 


11(21 





1114 


1126 


1127 


1128 


1129 


1131 


1132 


1133 


1134 


1171 


1173 


1188 


1189 


1190 




1191 


1210 


1211 


1216 


1246 


1248 


1249 


1253 


1254 


1308 


1332 


1333 


13:43 


1348 




1350 


1353 


1356 


1371 


1382 


14514 


14^5 
















TAC1 


bit 


6 


112 


113 


114 


115 


133 


135 


142 


145 


150 


151 


215 


217 




219 


223 


224 


22b 


241 


242 


205 


298 


308 


310 


311 


312 


313 


318 




319 


369 


370 


372 


373 


374 


375 


438 


439 


441 


442 


443 


444 


445 




446 


447 


457 


458 


459 


559 


560 


561 


582 


583 


585 


641 


651 


652 




654 


655 


738 


716 


71 7 


725 


726 


727 


728 


730 


731 


777 


780 


797 




826 


823 


960 


961 


962 


963 


965 


967 


968 


969 


978 


979 


980 


1004 




1058 


1059 


1061 


1067 


1070 


1105 


1115 


1185 


1187 


1190 


1191 


1245 


1291 


1329 




1331 


1333 


1347 


13-19 


1375 


1376 


1377 


1378 


1379 












TEM 


6* 


6 


249 


250 


265 


270 


275 


280 


281 


371 


372 


434 


407 


411 




416 


419 


421 


628 


629 


630 


632 


635 


715 


716 


788 


789 


802 


873 




874 


1064 


1065 


1106 


1116 


1347 


1348 
















TEMP 


896 


926 


1114 


1126 


1134 


1415* 


















THRUIN 


1197 


1199 


1204 


1210* 






















THRUTA 


1088 


12?1# 


























THRUTD 


527 


657 


679 


705 


1219* 




















THRUTP 


1178 


1211 


1216* 


1227 


1259 


1264 


1268 


1315 


1402 


1403 










THSDAT 


22 


312 


























TIMRFQ 


981 


986 


1014# 
























TIMR32 


1010 


lfc].5# 


























T0P9LK 


37# 


253 


333 


412 


429 


566 


9i-<2 


1203 


1263 


1304 


1358 








TOUSER 


672 


6S4# 


























TOUSR1 


689# 




























TPOPJ 


20 


216 


























TPOPJ1 


20 




























TRNERR 


6# 


6 


























TRVLTR 


963 


10?3# 


























TTYATC 


6* 


6 


























TTYBIU 


6# 


6 


























TTYUSE 


btt 


6 


























TURN 


1148 


1272* 


























UAHCKl 


24 


211 


























UCHN 


bit 


6 


























UCLS 


98 


450* 


























UDSO 


54# 


129 


232 


304 


432 


451 


476 


548 


599 


617 


671 


1186 


1193 




U I M 


100 


545* 


5B7 
























UIOMOD 


6# 


6 


























UOUT 


99 


598* 


























UOUT2 


6^0 


6"8# 


























UREL 


97 


473* 


























UREL2 


480 


469* 


























USHMTH 


1289 


1329* 


























USEPRG 


1412# 




























USEWRD 


523 


845 


882 


964 


996 


1045 


1057 


1107 


1113 


1150 


1223 


1281 


1411* 




USLSTA 


332 


424* 


























USPNTR 


689 


1127 


1128 


1376 


1427* 




















USRODT 


534 


586 


























USRFRA 


408* 


420 


























USRFRE 


395 


404* 


625 
























USRLST 


410 


421* 


























USRMOO 


bit 


6 



























UTPCLR 


110 


432# 




UUO 


6* 


6 


112 




195 


197 


198 




3113 


316 


317 




675 


6*8 


689 


UWP 


6* 


6 




UWPOFF 


6# 


6 




VDTAFX 


14# 


14 




WAITt 


23 


161 


240 


WRTBLK 


485 


640# 




WSVNC 


?a 


5?5 




WTMASK 


6* 


6 




ZERCOR 


541 


579» 





134 

283 
318 
69K> 



3R8 



135 
2P6 
337 



3°3 



144 
2?7 
338 



473 



151 
210 
3^9 



152 
215 
363 



168 
220 
369 



169 
223 
371 



173 
226 
376 



174 
229 
3?9 



177 
376 
668 
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CODES 


6# 


DISABL 


bit 


ENABLE 


btt 


NOSCHE 


6* 


NOSHUF 


6# 


QUEUES 


6# 


SCHEDU 


6* 


SHUFFL 


6# 


ST4RTD 


6* 


XP 


6« 



13 



